假設圖片有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
網站導航
- zblogPHP模板zbpkf
- zblog免費模板zblogfree
- zblog模板學習zblogxuexi
- zblogPHP仿站zbpfang