Excel VBA 製作圖片放大縮小的圖片抓取原點 - Excel/VBA论坛

楼主

问题点数：0 回复次数：0

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

搜索更多相关主题的帖子: With　If　End　VBA　Excel　