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

2017-07-11 17:59:00
zstmtony
原創
1870

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

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


作者:Excel小子


blob.png


Excel圖形镟轉動畵:

Excel小子1.gif


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


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

分享