screen flickering
 

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

screen flickering
 

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

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


"ward376" wrote:

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

screen flickering
 

Application.ScreenUpdating = False
before and
Application.ScreenUpdating = True
after
--
Gary''s Student - gsnu200749


"ward376" wrote:

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

screen flickering
 

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