Update gekoppelde Excel tabellen in Powerpoint

Status
Niet open voor verdere reacties.

Sickbock

Gebruiker
Lid geworden
14 jul 2012
Berichten
39
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:
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
 
waarom niet:

Code:
Sub vertoonppt()
   with GetObject("G:\OF\resultaat.pptm")
     .UpdateLinks
     .application.Visible = True
     with .SlideShowSettings
        .RangeType = 3
        .SlideShowName = "Voorstelling_A"
        .run
     end with
  End With
End Sub
 
Laatst bewerkt:
Beste snb

Bedankt voor je reactie. De code op zich werkt prima. Het voordeel is dat je alle code binnen excel kunt verwerken. Het lost echter mijn update probleem niet op. De tabellen in PowerPoint worden nog steeds niet geüpdatet.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan