|
2003エクセルで作成した下記写真貼り付けマクロが2007エクセルで実行したところ
貼り付け位置が基点をB16,B46セル設定してあるのですが、
2007で実行するとA5付近に2枚重なった状態で貼り付けられてしまいます、2003と2007では何か違いが有るのでしょうか?
以上、宜しくお願いします。
Sub 写真挿入2()
'
' 写真挿入気密試験用 Macro
' マクロ記録日 : 2006/3/26 ユーザー名 :
'
Dim ファイル1 As String
Dim ファイル2 As String
ActiveSheet.Shapes("画像1").Delete
ActiveSheet.Shapes("画像2").Delete
ファイル1 = "C:\YGD写真集\" & Range("G3").Value & ".jpg"
Range("B16").Select
ActiveSheet.Pictures.Insert(ファイル1).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 240.5
Selection.ShapeRange.Width = 370.75
Selection.Name = "画像1"
ファイル2 = "C:\YGD写真集\" & Range("G4").Value & ".jpg"
Range("B45").Select
ActiveSheet.Pictures.Insert(ファイル2).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 240.25
Selection.ShapeRange.Width = 370.75
Selection.Name = "画像2"
End Sub
|
|