假設(shè)圖片有100張，圖片格式為“.jpg"，圖片放在”D:\PICTURE“中，要放入圖片的名稱寫在A1到A100中（不含后綴名），圖片插入到B1到B100的單元格。代碼如下：

Sub插入圖片()

DimIAsInteger

ForI=1To100

Cells(I,2).Select

ActiveSheet.Pictures.Insert"D:\PICTURE\"&Cells(I,1)&".jpg"

NextI

EndSub