In een Excel spreadsheet maak ik een aantal berekeningen die daarna in Excel tabellen worden gepresenteerd. Daarnaast heb ik een Powerpoint presentaie met een aantal aangepaste diavoorstellingen. Dia’s van de Powerpointpresentatie zijn gekoppeld aan de in de Excel spreadsheet berekende tabellen.
Voor updaten van de tabellen in Excel laat ik een macro uitvoeren. Nadat de tabellen zijn bijgewerkt wil middels een Powerpoint presentatie de aangepaste tabellen vertonen. Daartoe wordt in Excel middels de macro “vertoonppt” Powerpoint opgestart waarna de afloop van de macro’s wordt overgenomen in Powerpoint via de macro’s “update” en “Vertoon_A”.
Wanneer ik op de hand (F8) door de macro’s loop werkt alles zoals gewent. Laat ik echter de macro’s automatisch uitvoeren dan vindt de update tussen Excel en Powerpoint niet plaats. Heeft iemand een idee hoe ik ook automaisch de update wel plaats zou kunnen laten vinden?
Naam Powerpoint presentative: resultaat.pptm
Aangegepaste diavoorstellingen in resultaat.pptm: Voorstelling_A
Code in Excel:
Code in PowerPoint
Voor updaten van de tabellen in Excel laat ik een macro uitvoeren. Nadat de tabellen zijn bijgewerkt wil middels een Powerpoint presentatie de aangepaste tabellen vertonen. Daartoe wordt in Excel middels de macro “vertoonppt” Powerpoint opgestart waarna de afloop van de macro’s wordt overgenomen in Powerpoint via de macro’s “update” en “Vertoon_A”.
Wanneer ik op de hand (F8) door de macro’s loop werkt alles zoals gewent. Laat ik echter de macro’s automatisch uitvoeren dan vindt de update tussen Excel en Powerpoint niet plaats. Heeft iemand een idee hoe ik ook automaisch de update wel plaats zou kunnen laten vinden?
Naam Powerpoint presentative: resultaat.pptm
Aangegepaste diavoorstellingen in resultaat.pptm: Voorstelling_A
Code in Excel:
Code:
Sub vertoonppt()
Dim PPT As Object
Set PPT = CreateObject("PowerPoint.application")
With PPT
.Visible = True
.presentations.Open "\resultaat.pptm"
.Run "resultaat.pptm!update"
.Run "resultaaat.pptm!Vertoon_A
End With
End Sub
Code in PowerPoint
Code:
Sub update()
ActivePresentation.UpdateLinks
ActivePresentation.Save
End Sub
Code:
Sub Vertoon_A()
update
With ActivePresentation.SlideShowSettings
.RangeType = ppShowNamedSlideShow
.SlideShowName = "Voorstelling_A"
.Run
End With
End Sub