複数の写真をエクセルに貼り付けられるマクロ

質問

エクセルで工事写真を貼り付けたいのですが、
マクロにより以下のことを実行したいです。

(1)写真貼り付け開始セルをダブルクリック
(2)写真を複数枚選択
(3)写真をセルのサイズにリサイズ
(4)ファイル名順に写真を貼り付け

マクロを普通に実行して(2)～(4)を行うコードや
写真１枚に対して(1)(3)(4)ができるコードは見つかるのですが、
(1)～(4)ができるコードが見つかりません。

ちなみに、写真貼り付け用のセルは4列×12行分の結合セルで
この形式が下に延々と続いています。

どなたか良い知恵をお貸しください

回答No.1

keithin · ベストアンサー

sub macro1()
　dim myFile as variant
　dim h as variant
　myfile = application.getopenfilename(multiselect:=true)
　if not isarray(myfile) then exit sub

　for each h in myfile
　　with activesheet.pictures.insert(h)
　　　.name = "Pict" & selection.address(false,false)
　　　.shaperange.lockaspectratio = false
　　　.top = selection.top
　　　.left = selection.left
　　　.width = selection.width
　　　.height = selection.height
　　end with
　　selection.offset(1).select
　next
end sub
ぐらいで。

回答No.2

bin-chan

１）(２）～（４）のＶＢＡで用いるセル(Ｒａｎｇｅ）とファイル名を変数に置きかえる。
２）（１）で１）の変数に値を代入して呼び出すように書きかえる

これが思い通りに動くなら、
２）で代入しているセルの値とファイル名の値さえ変ればＯＫですよ