VBA图片弹出点击错误问题

Question

我在excel中有一张表，列出了产品和每个产品的图片（D列）。我已经在工作表中放了以下代码，但我的问题是。

问题：如果用户点击一个产品图像，然后点击另一个图像，然后再点击第二次，使图像再次变小，则第二次点击的图像将消失，第一个图像将调整为新的大小，并且只会放大得更大。

图片：

屏幕截图正在发生的步骤

Option Explicit
Dim fd As Boolean
Sub PicPopUp_Click()
fd = fd Xor True
With ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
If fd Then
    .Left = .Left - 50
    .Width = .Width + 50
    .Top = .Top - 50
    .Height = .Height + 50
Else
    .Left = .Left + 50
    .Width = .Width - 50
    .Top = .Top + 50
    .Height = .Height - 50
End If
.ShapeRange.ZOrder msoBringToFront
End With
End Sub

Answer 1

我对你的代码还不够熟悉。。但是，有可能在每次点击D列时重置该列吗？我假设所有的图像都是标准尺寸。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
MsgBox "Nice Work!" 'place reset image size code here. 
Call "whatever your image resize macro is named"
End If
End Sub