I create simple Animation of Ball move Right to left and left to right
When I work on this animated sheet animation was stopped ?
I want animation during work on this animated sheet
Thanks in advance
Sub Play_Click()
x = 0
Do
DoEvents
x = x + 2
Sheet1.Shapes("Ball").Left = x
Sheet1.Shapes("Ball").Rotation = x
Loop Until x = 920
Do
DoEvents
x = x - 1
Sheet1.Shapes("Ball").Left = x
Sheet1.Shapes("Ball").Rotation = x
Loop Until x = 1
End Sub