screen flickering

[ward376]

Is there a way to "smooth" the movement while these lines execute?

For i = 1 To 360 Step 1
wb.ActiveChart.Rotation = i
x = Timer
While Timer - x < 0.01
Wend
Next

 

[Guest]

Application.ScreenUpdating = False 'Put at the beginning of your code

Application.ScreenUpdating = True 'Put at the end of your code

 

[Guest]

Application.ScreenUpdating = False
before and
Application.ScreenUpdating = True
after

 

[ward376]

Mike/Gary's Student - keeping the screen from updating defeats the
purpose... this code rotates a 3d chart for viewing from all angles.