I am designing a KPI Portal where data from Excel is imbedded in a PowerPoint slideshow. Currently, all the data updates in the presentation file, but once I save it as a macro-enabled slideshow, the updates never occur. I have a Macro that from what I understand will update slides during the show, but it doesn't seem to work.
Here is my code:
Sub OnSlideShowPageChange()
Dim i As Integer
i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
If i <> 1 Then Exit Sub
' MsgBox "working"
Dim osld As Slide
Dim oshp As Shape
Dim opres As Presentation
Dim L As Long
On Error Resume Next
Set opres = objWindow.Parent
L = objWindow.View.CurrentShowPosition
If L < opres.Slides.Count Then
Set osld = objWindow.View.Slide
For Each oshp In objWindow.Parent.Slides(L + 1).Shapes
oshp.LinkFormat.Update
Next oshp
Else
For Each oshp In objWindow.Parent.Slides(1).Shapes
oshp.LinkFormat.Update
Next oshp
End If
End Sub
Any ideas what is going wrong?
Thanks