2019-10-24

〔VBA〕FollowHyperlink-開啟非Excel檔案--v034

【以超連結開啟方式打開檔案】


ThisWorkbook.FollowHyperlink  "file:///C:\ScenicSchool\資料夾或檔案"
ThisWorkbook.FollowHyperlink  "file:///" & ActiveWorkbook.Path & "\資料夾或檔案" 


在儲存格上,可以輕易的加入超連結,以方便開啟檔案、指定工作表、或網頁…
按右鍵加入超連結即可…
甚或使用vba的方式把超連結加入(參考下方「相關課程」)

但以上的方式,超連結一旦加入…它的路徑就是固定的不會任意被改變~
路徑固定有什麼影響呢?
1. 對網址而言沒有影響
2. 對同一張表內的指定工作表也沒有影響…
3. 對連結其它的檔案(包括Excel、PDF等等),倘若位置改變了…那就有可能找不到檔案~

例如我使用雲端硬碟去同步一些共用資料,但在不同的電腦,雲端硬碟同步的路徑不同…
如此狀況,就會造成我在A電腦手動加入的連結,在B電腦打開時因為路徑差異造成連結不能使用…
索性使用以超連結方式去動態開啟檔案~

雖然也可以使用Shell的方式來開啟檔案,但會遇到路徑太長被截斷的問題…
總之,跨時代了就用新方法來處理吧~



相關課程:
〔VBA〕Hyperlinks-儲存格加入超連結--v015
〔VBA〕Hyperlinks-清除的方式--v018


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區,提問請至小講堂唷 ※※

5 章老師的電腦小講堂: 10月 2019 【以超連結開啟方式打開檔案】 ThisWorkbook.FollowHyperlink  " file:/// C:\ScenicSchool\資料夾或檔案 " ThisWorkbook.FollowHyperlink  " file:///...

2019-10-23

〔VBA〕Shapes.Delete-一次刪除所有圖片/圖形--v035

【一次刪除工作表內所有圖片/圖形】

Sub DeleteAllShapes()
    
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        shp.Delete
    Next shp

End Sub

相關課程:


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區,提問請至小講堂唷 ※※

5 章老師的電腦小講堂: 10月 2019 【一次刪除工作表內所有圖片/圖形】 Sub DeleteAllShapes()          Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next ...
小講堂經過多次搬移,舊文章連結及內容較難整理~
大家可以新文章為主~
每篇文章後有代碼,任何文章問題可至FB小講堂用代碼提問唷~