請教各位大神小弟想要做點擊圖片進行放大縮小的效果，目前有成功了圖片從左上角往右下進行縮放，那小弟我是想要讓圖片是從右上角往左下進行縮放，請問我的VBA碼改怎麼修正?可否請大家幫個忙修正一下,感恩!

Option Explicit
Dim fd As Boolean
Sub 圖片2_Click()
fd = fd Xor True
With ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
    If fd Then
        .Width = .Width + 500
        .Height = .Height + 500
    Else
        .Width = .Width - 500
        .Height = .Height - 500
    End If
End With
End Sub