Mississippi Girl
Board Regular
- Joined
- Oct 27, 2005
- Messages
- 155
I have a powerpoint deck with over 100 charts that are linked to Excel. I've turned off the auto-update and run a macro to update the links when desired. What I'd like to do is insert a message box after every 20th slide is updated as sort of a "status" update. This would be an information only box and wouldn't require the user to click OK to continue or anything. Is that even possible? I started down the path of a progress bar but that slowed the process down way too much. It already takes a good bit (3-4 minutes) to update all the links as it is. Here's the current VBA I'm using.
Thanks for your help!
Code:
Sub Update_Links()
Dim osld As Slide
Dim oshp As Shape
If MsgBox("Would you like to continue?", vbQuestion + vbYesNo) <> vbYes Then
Exit Sub
End If
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoLinkedOLEObject Then oshp.LinkFormat.Update
Next oshp
Next osld
End Sub
Thanks for your help!