エクセル マクロ

質問

エクセルのある特定のセルをダブルクリックすると
画像ファイルを参照しにいき
貼りつけたい画像ファイル選ぶと
そのセルの大きさに合わせて
画像ファイルがそのセルに
貼りつくというマクロが以下の通りなんですが
Excel2003からExcel2007へ変更すると
画像ファイルの貼りつく位置がダブルクリックしたセルではない所に
貼りつくようになりました
参照や大きさなどはちゃんと機能しているようです
どこを変更すればよいでしょうか？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range('特定のセル)) Is Nothing Then Exit Sub
Cancel = True
Dim myPic
Dim myRange As Range
Dim rX As Double, rY As Double
myPic = Application.GetOpenFilename("画像ファイル,*.jpg;*.jpeg;*.gif;*.tif")
If VarType(myPic) = vbBoolean Then Exit Sub
Set myRange = Target
Application.ScreenUpdating = False
With ActiveSheet.Pictures.Insert(myPic).ShapeRange
rX = myRange.Width / .Width
rY = myRange.Height / .Height
If rX > rY Then
.Height = .Height * rY
Else
.Width = .Width * rX
End If
.Left = .Left + (myRange.Width - .Width) / 2
.Top = .Top + (myRange.Height - .Height) / 2
End With
Application.ScreenUpdating = True
Cancel = True
End Sub

回答No.1

nishi6 · ベストアンサー

＞Excel2003からExcel2007へ変更すると画像ファイルの貼りつく位置がダブルクリックしたセルではない所に貼りつくようになりました

最後の方の

End If
　　.Left = .Left + (myRange.Width - .Width) / 2
　　.Top = .Top + (myRange.Height - .Height) / 2
End With

を、

　　.Left = myRange.Left + (myRange.Width - .Width) / 2
　　.Top = myRange.Top + (myRange.Height - .Height) / 2

にしたらどうなりますか。2007は何か仕様が違っていたような気がします。

Excel2007がないもので何も確かめていません。完全に机上デバッグです。

うまくいけばいいですね。

お礼

うまくいきました！
ありがとうございました。