帖子: 248
主題: 55
精華: 0
積分: 314
點名: 235
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-10-20 16:26 | 只看該作者

[發問] icon路徑問題

請問各位大大

小弟有個巨集

可以將檔案附到Excel裡面

是以圖示的方式貼上，並修改成特定名稱

但由其他人使用時發現無法順利以圖示顯示

後來才發現原來是icon的路徑不同

下方截取部分程式碼

ActiveSheet.OLEObjects.Add(filename:=filename1, Link:=False, Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
IconIndex:=0, IconLabel:=icon_name1).Select

複製代碼

請問不同電腦使用時，能否自動判別icon的路徑

不用特別去修改

謝謝！！！

樓主熱帖

用功到世界末日那一天～～～

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

2^#

發表於 2014-10-20 21:00 | 只看該作者

ActiveSheet.OLEObjects.Add(filename:=filename1, Link:=False, Link:=False, _
                  DisplayAsIcon:=True, IconFileName:= _
                  Environ("Windir")+"\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
                  IconIndex:=0, IconLabel:=icon_name1).Select

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

3^#

發表於 2014-10-20 21:13 | 只看該作者

回復 1# li_hsien
有兩種方法可以達成,
一種是參考這一篇 : 請問如何在"文字方塊"輸入條件後再去搜尋資料
對 C:\Windows\Installer 底下的每個子目錄,
搜尋 PDFFile_8.ico 檔案(若要快些可以濾掉非 { 開頭的目錄)

但我不建議用此方式,
因為 Installer 目錄裡面的檔案是在安裝過程中產生的,
裡面大部分的檔案可能在安裝完後就再也不會使用,
所以有些垃圾資料清除功能或工具可能會清掉這些檔案.
而且每次都要搜尋Installer 底下的每個子目錄找該檔案也很沒有效率.

我較建議方式就是把這個 Icon 檔案 Copy 到某個目錄下,
可以自建一個目錄,
或是乾脆跟 Excel 檔放在同個目錄下,(可以用 ThisWorkBook.Path 取得)
這樣每個人都用相同的路徑即可,
程式也會比較好維護.

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 235
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2014-10-23 08:30 | 只看該作者

回復 2# bobomi

感謝bobomi回覆

不過好像每台電腦的
這個位置 -> {AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico" 都不盡相同

用這方法好像無法確保每台電腦都找得到圖示

用功到世界末日那一天～～～

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 235
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

5^#

發表於 2014-10-23 08:34 | 只看該作者

回復 3# luhpro

luhpro大的建議是將我所要的圖示，統一放置在一處

檔案抓取的圖示都固定抓那一處的圖示來顯示嗎???

用功到世界末日那一天～～～

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 235
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

6^#

發表於 2014-10-23 15:38 | 只看該作者

另外請問各位大大

插入檔案物件，我能否指定他要插入的地方呢???

我用了Range().select

可以附到特定儲存格上

可是為什麼試了幾次又不行了@@

另外我想調整它呈現出來的圖示大小
加了Width:=57

沒有效果

請問能怎麼操作呢???

謝謝

If Dir(filename) <> "" Then
Range("B" & i).Select
ActiveSheet.OLEObjects.Add(filename:=filename, Link:=False, Width:=57, DisplayAsIcon:=True, _
IconFileName:= _
"C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
IconIndex:=0, IconLabel:=Range("A" & i)).Select

複製代碼

用功到世界末日那一天～～～

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

7^#

發表於 2014-10-23 22:54 | 只看該作者

回復 luhpro
luhpro大的建議是將我所要的圖示，統一放置在一處
檔案抓取的圖示都固定抓那一處的圖示來顯示嗎???
li_hsien 發表於 2014-10-23 08:34

這應該是最多人用的方法.

除非是系統有規範(例如共用元件目錄, 共用桌面...等目錄)或是市面常態上)該放的目錄外,
同一套軟體自己做的檔案大都會放在同一個目錄下.
不但好管理也便於引用相關資源.

另外請問各位大大
插入檔案物件，我能否指定他要插入的地方呢???
我用了Range().select
可以附到特 ...
li_hsien 發表於 2014-10-23 15:38

其實 Range本身也有 .Top .Left 及 .Width .Height 等屬性,
只要把物件的 .Top .Left 設定與某一儲存格相同,
這個物件就對齊該儲存格左上角.

值得一題的是有個屬性可以將該物件綁定某個儲存格的左上角,
使得物件能一直對齊儲存格,
不因插入欄列而有所變動.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2014-10-24 08:27 | 只看該作者

本帖最後由 GBKEE 於 2014-10-27 15:22 編輯

回復 6# li_hsien

另外我想調整它呈現出來的圖示大小
加了Width:=57 沒有效果

VBA OLEObjects.Add 的範例

'套用至 OLEObjects 物件時。
'本範例在 Sheet1 中新增一個 Microsoft Word OLE 物件。
ActiveWorkbook.Worksheets("Sheet1").OLEObjects.Add _
ClassType:="Word.Document"
'本範例為第一張工作表新增指令按鈕。
Worksheets(1).OLEObjects.Add ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, _
Width:=150, Height:=10

複製代碼

你可以指定

Sub Ex()
Dim i
i = 5
With ActiveSheet.OLEObjects.Add(Filename:="D:\test.xls", Link:=False, DisplayAsIcon:=True, _
IconFileName:="C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
IconIndex:=0 , IconLabel:=Range("A" & i))
.Top = Range("B" & i).Top '指定頂部位置
.Left = Range("B" & i).Left '指定右邊位置
.Height = Range("B" & i).Height '指定高度
.Width = Range("B" & i).Width '指定寬度
End With
End Sub