Excel VBA製作圖片放大縮小的圖片抓取原點

jeff850815

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

1. Option Explicit
   
2. Dim fd As Boolean
   
3. Sub 圖片2_Click()
   
4. fd = fd Xor True
   
5. With ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
   
6.     If fd Then
   
7.         .Width = .Width + 500
   
8.         .Height = .Height + 500
   
9.     Else
   
10.         .Width = .Width - 500
    
11.         .Height = .Height - 500
    
12.     End If
    
13. End With
    
14. End Sub

复制代码