Excel 3D Animation

 

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Declare Function timeBeginPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long

Private Declare Function timeEndPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long

Private Sub CommandButton1_Click()

timeBeginPeriod 1

t = timeGetTime

For i = -0 To 300

Shapes("AutoShape 2").IncrementRotation (3)

Shapes("AutoShape 2").ThreeD.RotationX = i

Shapes("AutoShape 2").ThreeD.RotationY = i

Shapes("AutoShape 2").Width = i

Shapes("AutoShape 2").Height = i

Shapes("AutoShape 2").Left = i

DoEvents

Next i

timeEndPeriod 1

End Sub