エクセル写真貼付について教えてください

質問

WindowsXP　エクセル2003を使っています。

・エクセルでA4の用紙にL版の大きさの写真を3枚印刷をしています。
・現在写真の貼り付けするのは、「挿入」→「図」→「ファイルから」→写真を選んで貼り付けしています。
大きさはそのつど、1枚1枚調整しています。
量が多い時、すごい時間がかかります。

（やりたい事）
・エクセルで、L版の写真の大きさの「枠」を3個作って、「枠」をクリックすると写真を保存している場所「写真フォルダー」に移動して、貼り付けしたい写真を、クリックするとエクセル上「枠」に貼り付け出来たらいいなと思っております。

色々自分で、本を見たりしたのですが、どうしてもわかりません。
こういう事をするのは可能ですか？
わかる方がおられましたら、教えて頂けませんか？
宜しくお願いします。

回答No.3

imogasi

VBAになるが、、「挿入」→「図」→「ファイルから」→写真を選んでの操作をマクロの記録を取れるので、検討・勉強を勧めたい。操作でサイズを動かす、位置を動かすと、そのコードも記録でコードのパターンわかる。
例えば
Sub Macro1()
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\XXXX\My Documents\My Pictures\写真\mausu1.jpg").Select
Selection.ShapeRange.ScaleWidth 0.61, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.61, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 261.75
Selection.ShapeRange.IncrementTop 39.75
End Sub
のようになる。この図・写真のサイズの変更、場所の移動を質問者のの希望になるよう、数値を試行して手探りで探し当てて、セットすればよい。
これは１回限りのコードだが、複数の写真などの場合はForNextで数回繰り回す。その際カウンター変数によってファイル名、位置を計算してコード化する。（ここが勉強のしどころ）
For i=1 To　3
(iでファイル名、位置・サイズを計算）
Next i
ファイル名は毎回人間がファイルを開くダイアログボックスで指定するか、
Dim fname As String

fname = Application.GetOpenFilename
If fname <> "False" Then
Workbooks.Open FileName:=fname
End If
のように選択したファイル名はfnameで捉えられる。
http://www.officepro.jp/excelvba/book_new/index3.html
またはセルのA列に連続しタセルにファイル名を前もって入れておくなどありえる。
するとCells（i,”A")でファイル名の文字列が取れる。
ーーー
自動的にやろうとすると、
操作によるものは既に試行済みで、出来なかっただろうし
VBAを組むか、
自分の思い通りの処理が出来るレディメードのフリーソフトでも探すほか無い。