VBA画像のポップアップをクリックしてバグの問題

Question

私はシートを各製品（列D）の製品と写真をリストするExcelを持っています。私はワークシートに次のコードを入れましたが、私の問題はこれです。

問題：ユーザーが製品イメージをクリックして別のイメージをクリックしてから2回目にクリックするとイメージを再び小さくすると、2番目のクリックしたイメージが消えて1番目のイメージが新しいサイズに調整され、さらに大きく。

画像：

Screenshot Steps of what is happening

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

私はあなたのコードで十分familairないよ..しかし、その列をクリックし、すべてのカラム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