ExcelにJ-peg画像を一括挿入できるマクロ。

複数のJ-pegをExcelに挿入したいのですがどなたかご教授願います。貼り付けはJ-peg加工になっていることが理想です（BMPやGIFではなく）

No.1 回答者： kamejiro 回答日時： 2006/06/09 01:16

例えば、c:\に

　ph000001.jpg
　ph000002.jpg
　ph000003.jpg
　ph000004.jpg
　ph000005.jpg

の５つのファイルがあって、それを順に挿入する場合

Sub Macro1()
Dim t As String
Dim n As String
For i = 1 To 5
f = i + 1000000
t = Right(f, 6)
n = "C:\ph" + t + ".jpg"
Cells(i * 10, 1).Select
ActiveSheet.Pictures.Insert(n).Select
Next i
End Sub

のようなマクロではどうなのでしょうか。