＞Excel2000と2002の共存インストールを考えています。 とのことですが、要らぬお節介な回答をさせていただきます。 ＞他のマクロは作れそうにありません 　そう難しいことではないと存じますよ。 　しかし、「写真集を作成」されるのでしたら、エクセルでなくても、プリンタ付属の写真処理ソフトで十分かと存じますが。。。 CANON）http://cweb.canon.jp/drv-upd/bj/soft.html EPSON）http://faq.epson.jp/faq/00/app/servlet/relatedqa?QID=003038 など 　[ツール(T)] - [マクロ(M)] - [新しいマクロの記録(R)] で １）セルE6 をクリックします。 ２）[挿入(I)] - [図(P)] - [ファイルから(F)] 写真を挿入します。 ３）写真を切り取り（[Ctrl] + [X]）ます。 ４）[編集(E)] - [形式を選択して貼り付け(S)] - [図（拡張メタファイル）] で貼り付けます。 ５）写真を右クリック [図の書式設定(I)] - [サイズ] タブ　- [縦横比を固定する(A)] に チェック が入っていることを確認して、[高さ(E)] または [幅(D)] に適当な数字を入力し、[OK] します。 　ここでは、例えば [幅(D)] に「9」と入力したとします。 ６）これで、セルE6 に、幅9cm の「拡張メタファイル」形式の写真が張り付きました。 ７）ここで、[ツール(T)] - [マクロ(M)] - [記録終了(R)] します。 　これで、記録されたマクロを見ると、 Sub Macro1() 　Range("E6").Select 　ActiveSheet.Pictures.Insert("写真ファイルのフルパス\写真の名前.jpg").Select 　Selection.Cut 　ActiveSheet.PasteSpecial Format:="図 (拡張メタファイル)", Link:=False, _ 　　DisplayAsIcon:=False 　Selection.ShapeRange.LockAspectRatio = msoTrue 　Selection.ShapeRange.Height = 190.5 　Selection.ShapeRange.Width = 255# 　Selection.ShapeRange.Rotation = 0# End Sub というようなコードになっていると存じますが、 　Selection.ShapeRange.Width = 255# の部分が「幅9cm」に当たりますが、「.LockAspectRatio = msoTrue」（縦横比を固定）になっていますので、 　Selection.ShapeRange.Height = 190.5 の行は不要です。 　これで、元々オートシェイプを配置していたセル番地の数だけ「For ～ Next」で回していけばよいかと存じます。 　元々のマクロも「For ～ Next」で回されていたと存じますが、ざっと、下記のようなコードになろうかと存じますので、あとはご要望のようなコードに書き換えてお試しください。 Sub Macro1() 　Dim MyFolder As String 　Dim MyFile As String 　Dim i As Byte 　Dim MyRng As Variant 'プルパスの最後に「\」マークを付けてください。 　MyFolder = "C:\My Documents\My Pictures\hoge\" '元々オートシェイプのあったセル番地を半角スペースで区切って羅列します。 　MyRng = Split("A1 G1 A12 G12 A23 G23 A34 G34 A45 G45") 　For i = 0 To UBound(MyRng) 　　Range(MyRng(i)).Select '写真ファイルの名前になるような式を考えます（i の初期値は 0）。 　　MyFile = "P" & 5080011 + i 　　ActiveSheet.Pictures.Insert(MyFolder & MyFile & ".jpg").Select 　　Selection.Cut 　　ActiveSheet.PasteSpecial Format:="図 (拡張メタファイル)", Link:=False, _ 　　　DisplayAsIcon:=False 　　Selection.ShapeRange.LockAspectRatio = msoTrue 　　Selection.ShapeRange.Width = 255# 　Next End Sub