Excel實(shí)現(xiàn)圖形旋轉(zhuǎn)-Excel動(dòng)畫1

Excel是一個(gè)非常強(qiáng)大的電子表格軟件，但經(jīng)常有不少強(qiáng)人用它來做一些超逼格的功能，如圖形旋轉(zhuǎn) 并變成動(dòng)畫

今天回來晚，時(shí)間不多，先來一個(gè)簡單一點(diǎn)的：

作者：Excel小子

Excel圖形旋轉(zhuǎn)動(dòng)畫：

Excel旋轉(zhuǎn)動(dòng)畫相關(guān)的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

作者原創(chuàng)教程，轉(zhuǎn)載前請(qǐng)先咨詢作者。