Question

I’m trying to animate Visio objects with a loop, such as:

For reposition = 2 To 6     xpos = reposition     ypos = reposition      sh1.SetCenter xpos, ypos      Sleep 1000  Next reposition 

While this DOES move the object from the starting position to the ending, the intermediate steps are not visible. After a delay only the final position is displayed.

If I put a MsgBox in the loop then each intermediate position is visible but one must click a distracting, center-positioned box in order to see these.

How can I make the flow visible without user interaction and covering of the screen by a modal window?

Answer 1

Try a DoEvents statement before your sleep