Excel實現圖形镟轉-Excel動畵1

Excel是一箇非常強大的電子錶格軟件，但經常有不少強人用牠來做一些超逼格的功能，如圖形镟轉 併變成動畵

今天迴來晚，時間不多，先來一箇簡單一點的：

作者：Excel小子

Excel圖形镟轉動畵：

Excel镟轉動畵相關的VBA代碼：

Sub 宏1()

'

' 宏1 宏

    Dim jiaodu, t

    ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select

    Do While jiaodu <= 360

    jiaodu = jiaodu + 1

    For t = 1 To 2500

    DoEvents

    Next t

    Selection.ShapeRange.IncrementRotation 1

    Loop

End Sub

作者原創教程，轉載前請先諮詢作者。