I am trying to operate an animation loop that moves a shape called "aircraft" between certain coordinates.
Right now I am using the loop below but it seems that "DoEvents" doesn't work in Powerpoint like it does in Excel. The shape, instead of moving along a horizontal line it updates its position only when the loop ends.
I need to to move the shape (a picture named "aircraft") from coordinate x=100 to coordinate x=200 in quick small steps.
I also want to make sure that I can run secondary macros during the operation of this loop - just like the DoEvents statement would allow you to do in Excel. Thanks!
Sub shape_movement()
For i = 1 To 100
ActivePresentation.Slides(2).Shapes.Range(Array("aircraft")).Left = 100 + i
DoEvents: DoEvents
Next i
End Sub
Bookmarks