excel VBC 拡大縮小マクロ


'------------------------------------------
Option Explicit

    Public Flag As Boolean

Sub 拡大縮小()
    With ActiveSheet.Shapes(Application.Caller)
        .ZOrder msoBringToFront
        If Flag Then
              .ScaleWidth 0.3, msoTrue
              .ScaleHeight 0.3, msoTrue
              .ZOrder msoBringToFront
        Else
              .ScaleWidth 1, msoTrue
              .ScaleHeight 1, msoTrue
        End If
    End With
    Flag = Not Flag

End Sub

'---------------------------------

参考URL:
http://oshiete.goo.ne.jp/qa/6369120.html