返回列表 上一主題 發帖

[發問] EXCEL2010 批次匯入圖片,但不是用連結的方式

lpk187

帖子
552 
主題
6 
精華
0 
積分
576 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2026-9-10 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2015-6-24 08:29 | 顯示全部帖子
回復 2# 施建國


   你上次這篇上，我的範例就有了啊！
http://forum.twbts.com/viewthread.php?tid=14275&rpid=78737&ordertype=0&page=1#pid78737
  1. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  2. If MsgBox("是否貼圖", 4) = vbNo Then Exit Sub
  3. For Each shap In Sheets(Sh.Name).Shapes
  4.     shap.Delete
  5. Next
  6. For Each Rng In Sheets(Sh.Name).Range("C3", Range("c3").End(xlDown))
  7.     Pat = ThisWorkbook.Path & "\" & Sh.Name & "\" & Rng & ".jpg"
  8.     Sheets(Sh.Name).Shapes.AddPicture Pat, True, True, Rng.Left, Rng.Top, Rng.Width, Rng.Height
  9. Next
  10. End Sub
複製代碼

TOP

lpk187

帖子
552 
主題
6 
精華
0 
積分
576 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2026-9-10 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-6-26 17:20 | 顯示全部帖子
本帖最後由 lpk187 於 2015-6-26 17:27 編輯

回復 4# 施建國


   
我的程式碼放的位置如下圖，不管你的路徑在哪，只要如圖放就可以了

然後開啟工作簿後，只要點選工作表就會問你是否貼上圖片，圖片的路徑會去尋找"這程式底下"的"資料夾"，
因你當初說的，會和資料夾會和工作表同名，例如：O13工作表會去找O13的資料夾，圖片名稱則是依照C欄的名稱去尋找圖片，

TOP

lpk187

帖子
552 
主題
6 
精華
0 
積分
576 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2026-9-10 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2015-6-26 17:36 | 顯示全部帖子
本帖最後由 lpk187 於 2015-6-26 17:38 編輯

回復 4# 施建國


    主要的路徑都在這列
Pat = ThisWorkbook.Path & "\" & Sh.Name & "\" & Rng & ".jpg"
ThisWorkbook.Path==>本檔案所在的資料夾
Sh.Name==>是工作表也是資料夾名稱
Rng & ".jpg"==>因為我假設你的圖片副檔名都為JPG檔，而Rng則是C欄的圖片主要檔名，若你的圖片不是JPG檔請自行更改。
會產生錯誤主要是你檔案或圖片放錯地方了，或者是副檔名不是JPG檔

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題