- 帖子
- 26
- 主題
- 9
- 精華
- 0
- 積分
- 58
- 點名
- 0
- 作業系統
- WIN8
- 軟體版本
- A
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-5-19
- 最後登錄
- 2020-4-17
|
小弟有找到一篇舊文章，但這篇文章的程式碼主要是將照片放在同一欄，名稱在另外一欄
小弟將所需的圖片檔案都放置 D:/TEST 裡面
按巨集=>圖片依序貼上B欄的儲存格 然後 C欄依序顯示出檔名
但小弟想請教大家要改為=>圖片依序在A1欄名稱 ->B1欄圖片->C1攔名稱->D1欄圖片 然後在排回A2欄名稱 ->B2欄圖片->C2攔名稱->D2欄圖片 ...........
請問各位高手依照下面程式碼可以改為我上面的需求?
感謝大家~- Sub PHOTO()
- ActiveSheet.Columns("C") = ""
- Set Sh = ActiveSheet
- With Sh
- .Pictures.Delete
- End With
- fs = Dir("D:\TEST\*.jpg")
- Do Until fs = ""
- R = R + 1
- Cells(R, 3) = fs
- Cells(R, 2).Select
- ActiveSheet.Pictures.Insert("D:\TEST\" & Cells(R, 3)).Select
- With Selection
- .Top = ActiveSheet.Cells(R, 2).Top + 1
- .Left = ActiveSheet.Cells(R, 2).Left + 1
- .Width = ActiveSheet.Cells(R, 2).Width - 1
- .Height = ActiveSheet.Cells(R, 2).Height - 1
- End With
- fs = Dir
- Loop
- End Sub
|
|
發表於 2014-5-29 21:32
| 
