ExcelのVBAで写真を貼り付ける

質問

Cドライブのpicというフォルダ内にファイル名が1から連番の写真データがあり、
セルA1にファイル名を入力した後にマクロを実行すると、
A2のセルに写真が貼り付けられるようにする
（セルに写真がある場合は写真削除後に貼り付ける）には
どう書けばいいでしょうか？
お願いします。

回答No.1

keithin

＞セルA1にファイル名を入力した後にマクロを実行すると

暫定的に「拡張子無し」のファイル名だけを記入するとして。
かならずまっさらの（まだ絵を貼ってない）シートから実行します。

作成例：
sub macro1()
　on error resume next
　activesheet.pictures("pictA1").delete
　on error goto 0

　with activesheet.pictures.insert("c:\pict\" & range("A1").value & ".jpg")
　　.shaperange.lockaspectratio = false
　　.top = range("A2").top
　　.left = range("A2").left
　　.width = range("A2").width
　　.height = range("A2").height
　　.name = "pictA1"
　end with
end sub

１回こうして実行した後は、Ａ２を書き換えて随意に実行します。

お礼

回答ありがとうございます、助かりました！