PNGをアクティブシートに挿入するマクロについて

質問

Excelマクロブックと同じフォルダ内にある複数のPNGファイル（画像）を、
このマクロブックのアクティブシートに一括で挿入する（場所はどこでも大丈夫です）マクロの書き方を教えて欲しいです。

質問が分かりづらかったら申し訳ありません。
どなたかご教授いただければ幸いです。

回答No.3

imogasi

#2のついでに、参考で載せてみる。簡単だろう。
下記の注記を参照のこと。想像によるテストです。
これでは都合が合わない場合は、その点を限定・明記して、やり方を質問する、ことだろう。
Sheet2のA列に候補ファイル名のリストを作って後の話。
B列には、不要分は何か印を入力。（プログラムでは判別が難しそうな、質問の説明だから。
ーー
Sub test04()
fld = "C:\Users\XXX\Pictures\"　’ファイルのあるフォルダ名
For i = 1 To 10
If Worksheets("Sheet2").Cells(i, "B") = "" Then
Worksheets("Sheet1").Shapes.AddPicture Filename:=fld & Worksheets("Sheet2").Cells(i, "A"), _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=20, _
Top:=(i - 1) * 210 + 30, _
Width:=300, _
Height:=200
End If
Next i
End Sub
標準モジュールにコピペ。
ーーー
注記
・ファイル指定はフルパスで指定のこと
・B列が空白でない行は、処理をスキップ。リストでスキップするものはB列に何か入力。
・並び順は特に今回は、考えてない
・Height＝２００しているのでTop:=(i - 1) * 210 + 30,　としている
各々の画像の上下余白は、２１０－２００＝１０です
・JPGの１０数個の画像でテストで確認済み
・Shapesの中身が画像という処理です。別途InsertPictureを使う記事もある。