office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Excel實現圖形旋轉-Excel動畫1

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

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


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

分享
北京十一选五基本走势