返回列表 上一主題 發帖

[發問] icon路徑問題

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-10-20 16:26 | 顯示全部帖子

[發問] icon路徑問題

請問各位大大

小弟有個巨集

可以將檔案附到Excel裡面

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

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

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

下方截取部分程式碼
  1. ActiveSheet.OLEObjects.Add(filename:=filename1, Link:=False, Link:=False, _
  2.                     DisplayAsIcon:=True, IconFileName:= _
  3.                     "C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
  4.                     IconIndex:=0, IconLabel:=icon_name1).Select
複製代碼
請問不同電腦使用時，能否自動判別icon的路徑

不用特別去修改

謝謝！！！
收藏 分享
用功到世界末日那一天∼∼∼

li_hsien

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

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" 都不盡相同

用這方法好像無法確保每台電腦都找得到圖示
用功到世界末日那一天∼∼∼

TOP

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2014-10-23 08:34 | 顯示全部帖子
回復 3# luhpro

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

檔案抓取的圖示都固定抓那一處的圖示來顯示嗎???
用功到世界末日那一天∼∼∼

TOP

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2014-10-23 15:38 | 顯示全部帖子
另外請問各位大大

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

我用了Range().select

可以附到特定儲存格上

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

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

沒有效果

請問能怎麼操作呢???

謝謝
  1.             If Dir(filename) <> "" Then
  2.                 Range("B" & i).Select
  3.                 ActiveSheet.OLEObjects.Add(filename:=filename, Link:=False, Width:=57, DisplayAsIcon:=True, _
  4.                     IconFileName:= _
  5.                     "C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
  6.                     IconIndex:=0, IconLabel:=Range("A" & i)).Select
複製代碼
用功到世界末日那一天∼∼∼

TOP

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2014-10-24 11:37 | 顯示全部帖子
回復 7# luhpro


感謝luhpro

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

之前都沒想到

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

謝謝
用功到世界末日那一天∼∼∼

TOP

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
6#
發表於 2014-10-24 16:06 | 顯示全部帖子
回復 8# GBKEE

感謝GBKEE版大

所以他的相關屬性
.Height
.Width
都不是指定實際的長寬，而僅是指某個儲存格的相對位置吧???
用功到世界末日那一天∼∼∼

TOP

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
7#
發表於 2014-10-27 08:21 | 顯示全部帖子
回復 11# GBKEE


    感謝GBKEE版大

    小弟瞭解

    TKS~
用功到世界末日那一天∼∼∼

TOP

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
8#
發表於 2014-10-27 17:33 | 顯示全部帖子
回復 15# stillfish00

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

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

不過後來我用的方式是這樣
  1. Dim PDF As OLEObject

  3. Set PDF = ActiveSheet.OLEObjects.Add(XXXXX)

  5. PDF.Height = 42.75
  6. PDF.Width = 57.75
複製代碼
結果發現可行

哈哈 就這樣操作了

也不清楚這樣執行O不OK
用功到世界末日那一天∼∼∼

TOP

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
返回列表 上一主題