ITjes en datjes

Dingen uit dagelijks IT werk

Automatisch ophalen van data in Powerpoint

Om een aantal onderdelen van Excel in een een Powerpoint presentatie automatisch bij te laten werken kan men de presentatie handmatig data laten ophalen, of de volgende macro kan gebruikt worden om de data op te halen bij wisseling van een dia;

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
Dim oSlide As Slide
Dim oShape As Shape
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
If oShape.Type = msoLinkedOLEObject Then oShape.LinkFormat.Update
Next oShape
Next oSlide
End Sub

In dit geval wordt het bij elke wisseling uitgevoerd (interval is hoog genoeg) maar het kan ook bij een specifieke dia;

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
If SSW.View.CurrentShowPosition = 3 Then
….
End If

of begin of eind met;

SSW.View.CurrentShowPosition = SSW.Presentation.SlideShowSettings.StartingSlide / SSW.Presentation.SlideShowSettings.EndingSlide

 

Written by mnystrom

2015/03/30 bij 09:39

Geplaatst in MBitZ, NL, Office, software

Tagged with , ,

%d bloggers op de volgende wijze: