請問如何使用VBA批量加入圖片?

excel vba 批量加入圖片

w98775 2022-03-15 15:22:40 ‧ 963 瀏覽

假設已經取得所有檔名，圖片需依照前項檔名依次填入圖片
使用巨集可以如何寫呢?圖示如下：

已找過許多文章但因為沒學過VBA所以看不太懂
導入會顯示失敗或有各種問題QQ
請求各位大神幫助~~~~~~
非常感謝^^

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

海綿寶寶

iT邦大神 1 級 ‧ 2022-03-15 19:56:43

若 IMG_4483.JPG 是在 A2 的位置
則
1.圖片檔案和 Excel 在同一個目錄
2.將游標停在 B2 的位置
3.執行以下 VBA
即可在 B2 插入圖片

Sub InsertPicture()
    ActiveSheet.Pictures.Insert(ActiveCell.Offset(0, -1)).Select
End Sub

以下類推
在 B3 執行
在 B4 執行
...

看更多先前的回應...收起先前的回應...

尼克 iT邦大師 1 級 ‧ 2022-03-15 20:44:26 檢舉

海綿寶寶 iT邦大神 1 級 ‧ 2022-03-15 21:57:14 檢舉

w98775 iT邦新手 5 級 ‧ 2022-03-16 09:52:34 檢舉

謝謝大神回答，不過不知道我是哪邊操作錯誤，一執行excel就直接關閉了..QQ
另外若有10張圖須插入我是需要按10次嗎?感謝您！

海綿寶寶 iT邦大神 1 級 ‧ 2022-03-16 09:59:52 檢舉

1.excel直接關閉...換張圖片檔案試試看
2.是的, 要按10次(不過現在連1次都沒成功,先不用擔心這問題)

海綿寶寶 iT邦大神 1 級 ‧ 2022-03-16 10:13:44 檢舉

趁你在測試時我把批次(只要按1次)的部份寫好了如下
執行前

執行後

w98775 iT邦新手 5 級 ‧ 2022-03-16 11:19:34 檢舉

還是失敗XD
我後來找到了一個成功了~
感謝您~
附上我找到的http://forum.twbts.com/thread-11280-1-1.html

海綿寶寶 iT邦大神 1 級 ‧ 2022-03-16 13:28:05 檢舉

問題解決就好

立即登入回答

參賽組數

1123 組

團體組數

52 組

累計文章數

23096 篇

完賽人數

656 人

IT邦幫忙