Hallo Leute!
Ich habe folgendes Problem:
Per Makro öffne ich eine PowerPoint-Datei die sich wiederum aus ein paar Excel-Dateien aktualisiert (Diagramme, Datentabellen). Das Makro soll die ppt dazu bringen sich zu aktualisieren und dann eine Kopie als ppsx abzuspeichern. So weit kein Problem. Das Aktualisieren dauert aber ziemlich lange und erfordert mehrfach das Bestätigen von Fehlermeldungen (Verknüpfungen aktualisieren, Warten auf OLE-Anwendung).
Beim letzten Schritt des Makros, nämlich dem Speichern als ppsx bricht das Makro ab, Fehlermeldung: Laufzeitfehler - Systemaufruf fehlgeschlagen.
Wenn ich im Debugger die Prozedurschritte einzeln ausführe, klappt alles ohne Probleme.
Weiterhin habe ich exakt den gleichen Code (mit anderen Dateinamen) in einer anderen Datei und dort funktioniert er.
Irgendwelche Ideen?
Sub ppsx_speichern()
Dim MSppt As Object
Set MSppt = CreateObject("PowerPoint.Application")
'Application.DisplayAlerts = False
With MSppt
.Visible = msoTrue
.Activate
.Presentations.Open "Datei zum Öffnen"
End With
datum = Worksheets("START").Cells(1, 1)
name_pp_datei = "Dateiname neu"
With MSppt
.ActivePresentation.UpdateLinks
.ActivePresentation.SaveAs name_pp_datei
.ActivePresentation.Close
End With
'Application.DisplayAlerts = True
End Sub |