[發問] icon路徑問題

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

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

2^#

發表於 2014-10-23 08:30 | 顯示全部帖子

回復 2# bobomi

感謝bobomi回覆

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

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

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

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

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

3^#

發表於 2014-10-23 08:34 | 顯示全部帖子

回復 3# luhpro

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

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

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

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

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

4^#

發表於 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

複製代碼

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

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

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

5^#

發表於 2014-10-24 11:37 | 顯示全部帖子

回復 7# luhpro

感謝luhpro

圖示放在一個固定的路徑或資料夾真的是個完全不錯的作法

之前都沒想到

又在執行安排上學到了一點

謝謝

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

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

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

6^#

發表於 2014-10-24 16:06 | 顯示全部帖子

回復 8# GBKEE

感謝GBKEE版大

所以他的相關屬性
.Height
.Width
都不是指定實際的長寬，而僅是指某個儲存格的相對位置吧???

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

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

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

7^#

發表於 2014-10-27 08:21 | 顯示全部帖子

回復 11# GBKEE

感謝GBKEE版大

小弟瞭解

TKS~

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

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

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

8^#

發表於 2014-10-27 17:33 | 顯示全部帖子

回復 15# stillfish00

感謝版大和stillish00
一開始有想到是比例所造成的問題，可是發現底下的屬性沒有這一項
所以作罷

經stillfish00提點，才知道是這樣操作
.ShapeRange.LockAspectRatio = msoFalse 解除鎖定

不過後來我用的方式是這樣

Dim PDF As OLEObject
Set PDF = ActiveSheet.OLEObjects.Add(XXXXX)
PDF.Height = 42.75
PDF.Width = 57.75

複製代碼

結果發現可行

哈哈就這樣操作了

也不清楚這樣執行O不OK

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