excelへの図の挿入とサイズ調整

仕事上のニーズに関することらしいので、十分に応えられるかどうか判りません。 下記をやってみてください。 Ｓｈｅｅｔ２にＡ１：Ａ６に sunset.jpg Blue hills.jpg Water lilies.jpg Winter.jpg Winter.jpg Winter.jpg と入れておきます。（最後の２つは手抜きで同じもの指定したが意味なし） C:\Documents and Settings\All Users\Documents\My Pictures\Sample Picturesにこれらの画像ファイルがあるものとします。 ツールーマクロ－ＶＢＥ ＶＢＥ画面で、挿入ー標準モジュールで出る画面に下記をコピーし、貼り付け。 一部プログラムを修正して（後部に詳記）、実行（ＰＦ５キーを押す）。 Sub test02() X = Array("A1", "C1", "E1", "G1", "A3", "C3") Dim cl As Range Worksheets("Sheet1").DrawingObjects.Delete For i = 0 To UBound(X) Set cl = Worksheets("Sheet1").Range(X(i)) 'MsgBox cl.Address pn = Worksheets("Sheet2").Cells(i + 1, "A") With Worksheets("Sheet1").Pictures.Insert( _ "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\" & pn _ ) .Top = cl.Top .Height = cl.Height .Width = cl.Width .Left = cl.Left End With Next i End Sub （修正箇所） （１）現状はＳｈｅｅｔ１，Ｓｈｅｅｔ２を使っており 実行後にＳｈｅｅｔ１に画像を表示する。 Ｓｈｅｅｔ２のＡ列に画像のファイル名（拡張子つき）を入力しておきます。 （２）Ｓｈｅｅｔ１に画像をセットするセルを上例では、１行目はＡ１，Ｃ１、Ｅ１、Ｇ１、２行目はＡ３，Ｃ３に指定してます。 隣とは１列、１行間隔をあけてます。 これらは任意のセルを指定してもかまいません。 X = Array("A1", "C1", "E1", "G1", "A3", "C3")に付け加える方法については、"H1"のように列記号と行番号を表示し、前後に””で囲んでカンマ区切りで、付け加えてください・ （３）セルのサイズですがＡ，Ｃ、Ｅ、Ｇ列は写真を表示したいサイズにそろえ、Ｂ，Ｄ、Ｆ列は間隔として適当と思う幅にしてください 。行高についても同じです。 （４）C:\Documents and Settings\All Users\Documents\My Pictures\Sample Picturesは本番では画像ファイルのあるフォルダの パス名で置き換えて、指定してしてください。 （５）シート名は、Ｓｈｅｅｔ１が２箇所、Ｓｈｅｅｔ２が１箇所ありますが、それぞれ、シート名で置き換えてください。前後に””が残るように””の中を変えてください。 （７）私サイドでは上記少数例では、うまく表示できます。 （８）もし上記がうまくいけば、将来、ボタンをＳｈｅｅｔ２に１つ設けて、画像ファイル名を入力し、クリックすると実行するようにできます。勉強してください。 ファイル名が、いつも連続した名前になっている場合、オートフィルで実現できないか考えてください。 質問者側で、さてうまくいきますでしょうか。 印刷した結果との問題は手探りでサイズや配置調整をお願いします。 ＶＢＡでは難しくなりそうなのでご勘弁願いたい。