Sabtu, 31 Desember 2022

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

Tidak ada komentar: