Hi...
Meet me again ;)
Now I want show for you a tutorial how make basic animation with VBA Excel and I hope this can help you to expansion animation on VBA Excel.
- Insert a shape "Isosceles Triangle 1" and Rotate to right
- Change a format theme color with your want and change name shape to "Play"
3.Insert a object image
4.Set background object to transparent color
5.Move image object to left and make a horizontal line for base and a vertical regtangle for wall
6.Change name of shape object image to "Bola"
7.Insert a regtangle box change name to "Stop"
8.Right click shape "Play" and select Assign Macro and click New
9.Then enter the following code :
Sub Play_Click()
x = 0
Do
DoEvents
x = x + 2
Sheet1.Shapes("Bola").Left = x
Sheet1.Shapes("Bola").Rotation = x
Loop Until x = 522 Or s
Do
DoEvents
x = x - 0.5
Sheet1.Shapes("Bola").Left = x
Sheet1.Shapes("Bola").Rotation = x
Loop Until x = 500
End Sub
Sub Stop_Click()
s = 0
End
End Sub
Animation Finish and click shape "Play" to Run
END
