Refresh a graph while macro is running

[sapka]

Hello,
How can I do a refresh of a graph while macro is still running?
In my case all changes to the graph are applied only when macro is finished.

 

[ZVI]

Use DoEvents in the code.
The graph will refresh each time DoEvents is called.
Also be sure that Application.ScreenUpdating = True

 

[sapka]

Sadly it is not working like that. I forgot to say that I am using it for PowerPoint 2010, not Excel.

Sub test()
Dim objSlide As Slide
Dim objGraph As Object

Set objSlide = ActivePresentation.Slides(1)
Set objGraph = objSlide.Shapes(1)
    
    With objGraph.Chart    
    For i = 1 To .SeriesCollection(1).Points.Count
        .SeriesCollection(1).Points(i).Format.Line.Visible = msoFalse
        .Refresh
        DoEvents
        Sleep 200
    Next i
    End With

End Sub

 

[ZVI]

Have not PowerPoint 2010.
Not sure but after playing with PP 2003 model, it seems the common workaround can be in activating/auto-deactivating of dummy userform.
Create small empty UserForm1 and put this code into it:

' Code of the dummy(empty) UserForm1
Private Sub UserForm_Activate()
  ' Unload form immediately to provide refreshing of the active slide
  Unload Me
End Sub

In For-Next code of chart animation use UserForm1.Show to provide slide refreshing.
That is, replace in your code .Refresh by UserForm1.Show

Hope this will help

 

[sapka]

Still not working. All I see is how UserForm loads and unloads (many times), and after this process is done, combined graph changes are applied.