Code anpassen - Verknüpfungen aktualisieren
Wolfango
den untenstehenden VBA-Code habe ich mir aus mehrerene Quellen (unter anderem dieses von mir so geschätzte Forum hier) zusammengebastelt (kann leider kein VBA).
De Code macht auch das, was er soll:
Zwei weitere Excel-Tabellen werden geöffnet und anschließend wird eine Powerpoint-Datei geöffnet.
Allerdings: Die automatisch geöffnete PowerPoint-Datei wird leider nicht aktualisiert! (sie enthält eine Reihe von OLE-Excel-Tabellen).
Wenn ich die gleiche PPT-Datei manuell öffne, kommt die vertraute Frage ob ich die Verknüpfungen aktualisieren möchte.
Mein Wunsch: Den VBA-Code so verändern, dass die Verknüpfungen automatisch aktualisiert werden (oder zumindest die Frage nach der Aktualisierung erscheint).
Danke und Gruß,
Wo
Sub Praesentation_oeffnen()
Workbooks.Open "Z:\xxx\2012\lv2 - xxxx\12 XXXX.xlsm"
Workbooks.Open "Z:\yyy\2012\lv3 - yyy\12 YYYY.xlsm"
Dim ppt As Object
Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = True
ppt.Presentations.Open "Z:\QQQ\2012\ZZZ.pptx"
Set ppt = Nothing
End Sub
Anzeige