I
Invision_ary Perry
Windows XP, Office2003. I have an Excel macro that updates 3 Workbooks
(Pickup1, Intransit, Delivered) every 1/2 hour. Then I have a Powerpoint
show (16 slides) where I want the specific slides (slides
3,4,5,8,9,10,13,14,15) to update to the Excel Workbooks as the slid #1
appears. (Slides 3,8,10 link to Pickup1, etc.) The PowerPoint show is set to
Kiosk mode, and continuously loops. I have installed the addins that i have
read about here including LiveImg. Problem is the PPT does not update the
links except when I start the PPT show. I have tested the code to make sure
it is being executed by putting a MSGBOX ("showing slide x") for each slide
and that works, and it appears to be working. But links not updating. I'm
pretty good at Excel VBA, but PowerPoint VBA seems to be stumping me. Any
help?
Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
If SSW.View.CurrentShowPosition = 1 Then
For Each sh In ActivePresentation.Slides(3).Shapes
If sh.Type = msoLinkedOLEObject Then
With sh
.LinkFormat.Update
.Fill.Transparency = 0#
.Height = 70.5
.Width = 611.75
.Left = 71.88
.Top = 143.88
End With
End If
Next
' ..... the For...Next loop repeats for slides 4,5,8,9,10,13,14,15 exactly
as above
End If 'If SSW.View.CurrentShowPosition = 1
End Sub
(Pickup1, Intransit, Delivered) every 1/2 hour. Then I have a Powerpoint
show (16 slides) where I want the specific slides (slides
3,4,5,8,9,10,13,14,15) to update to the Excel Workbooks as the slid #1
appears. (Slides 3,8,10 link to Pickup1, etc.) The PowerPoint show is set to
Kiosk mode, and continuously loops. I have installed the addins that i have
read about here including LiveImg. Problem is the PPT does not update the
links except when I start the PPT show. I have tested the code to make sure
it is being executed by putting a MSGBOX ("showing slide x") for each slide
and that works, and it appears to be working. But links not updating. I'm
pretty good at Excel VBA, but PowerPoint VBA seems to be stumping me. Any
help?
Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
If SSW.View.CurrentShowPosition = 1 Then
For Each sh In ActivePresentation.Slides(3).Shapes
If sh.Type = msoLinkedOLEObject Then
With sh
.LinkFormat.Update
.Fill.Transparency = 0#
.Height = 70.5
.Width = 611.75
.Left = 71.88
.Top = 143.88
End With
End If
Next
' ..... the For...Next loop repeats for slides 4,5,8,9,10,13,14,15 exactly
as above
End If 'If SSW.View.CurrentShowPosition = 1
End Sub