Excel VBA 製作圖片放大縮小的圖片抓取原點
請教各位大神小弟想要做點擊圖片進行放大縮小的效果,目前有成功了圖片從左上角往右下進行縮放,那小弟我是想要讓圖片是從右上角往左下進行縮放,請問我的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