- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
本帖最後由 lpk187 於 2015-6-12 11:12 編輯
回復 2# 施建國
1.下面程式碼需貼到ThisWorkbook中。
2.必須要在C欄貼圖處鍵入圖片名稱，圖片名稱不用加上副檔名，圖片的副檔名在程式中設定為Jpg格式，若不是的話請自行更改。
3.圖片名稱假若是純數字，在C欄記得設定為文字格式
4.圖片的資料夾必須在此檔案的資料夾中建立- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
- If MsgBox("是否貼圖", 4) = vbNo Then Exit Sub
- For Each shap In Sheets(Sh.Name).Shapes
- shap.Delete
- Next
- For Each Rng In Sheets(Sh.Name).Range("C3", Range("c3").End(xlDown))
- Pat = ThisWorkbook.Path & "\" & Sh.Name & "\" & Rng & ".jpg"
- Sheets(Sh.Name).Shapes.AddPicture Pat, True, True, Rng.Left, Rng.Top, Rng.Width, Rng.Height
- Next
- End Sub
|
|
發表於 2015-6-12 11:10
| 