エクセル マクロ 写真貼り付け
エクセル マクロ 写真貼り付け
よろしくお願いします。
以前ここで、エクセルに写真を張り付けるマクロのコードが乗っていたので、それを使わせていただいていたのですが、PCを入れ替えてからうまく動作してくれません。どなたか修正個所を教えていただけると助かります。
OS ビスタ
エクセル 2007
"data"シートに貼付する写真のあるフォルダのパス、写真ファイル名が張り付ける分だけ表記されていて、"picture"シートに"data"シートの指定した写真を張り付けていきます。
A4用紙に以前はB3セル辺りから写真を指定の大きさに張り付け、次のページに移動してB37セルB71セルB105セルと写真貼り付けをしてくれましたが、PC入れ替え後から写真が1ページ目のB3セルに重ねて張り付けられてしまいます。
以前のように各ページに1枚ずつ写真を指定の大きさに張り付けるにはどうしたらよいのでしょうか。
以前はOS XP エクセル2003でした。
マクロに関しては素人です。どうかよろしくお願いします。
Sub MakeThumbnail()
Cells.Select
Selection.RowHeight = 22.5
Dim myDataCnt As Long
Dim myNo As Long
Dim i As Long
Dim myRow As Long
Dim myName As String
myDataCnt = Worksheets("data").Range("A1").End(xlDown).Row
myNo = 1
myRow = 2
Worksheets("picture").Select
Do Until myNo > myDataCnt
myName = Worksheets("data").Cells(myNo, 1).Value
Cells(myRow, 2).Select
ActiveSheet.Pictures.Insert(myName).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 200#
myRow = myRow + 12
myNo = myNo + 1
Loop
End Sub
補足
以前は高画質でも問題なかったです。 写真の大きさに因るのかも・・・と思い、小さくしても同じでした。