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

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


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


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

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

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

No.2 回答者： bin-chan 回答日時： 2014/01/19 14:11

１）(２）～（４）のＶＢＡで用いるセル(Ｒａｎｇｅ）とファイル名を変数に置きかえる。

２）（１）で１）の変数に値を代入して呼び出すように書きかえる

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

No.1 回答者： keithin 回答日時： 2014/01/19 14:09

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
ぐらいで。