Animation in excel vba

[PHPATEL]

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

 

[PHPATEL]

My code is

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

 

[Chihiro]

VBA code will not execute and will be paused while user is in cell edit mode.

There is no easy workaround for that.

Instead of using VBA to animate object, you could use animated GIF if so desired.