Somewhat Frivolous Graphics Question
Posted by John L. on February 02, 2001 7:35 AM
I want to make a graphical object rotate 360 degrees, but do it slowly, so that
it appears to be "animated"
I wrote a simple program to do this, but I need help with the area below
that is marked with three asterisks
I am trying to rotate the object 1 degree, pause, then rotate 1 degree and so on.
Here it is
For RotateVariable = 1 to 360
ActiveSheet.Shapes("Object").Rotation = RotateVariable
' ' ' Some command(s) that would cause the program to pause for perhaps 1/2 a second
I tried putting in a simple loop like:
For Delay = 1 to 10000
But, this does not work the program simply pauses then does the the full 360 degree
rotation. At least that is how it appears to the "naked eye."