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

单击错误问题上的VBA图片弹出窗口

1 个答案: