Hallo zusammen,
ich habe ein sehr seltsames Problem mit einem Makro in PowerPoint.
Von einer Master Präsentation werden per Folien ID einzelne Folien kopiert und in eine automatisch öffnende Zieldatei eingefügt. Nun erscheint fast schon willkürlich eine Laufzeitfehlermeldung 2147188160, der Zwischenspeicher sei leer oder die Inhalte können nicht eingefügt werden. Geht man manuell per F8 weiter, dann macht das Programm alles was es soll. Sprich, erst wird gemeckert, dass die Folie nicht einfügbar ist, dann geht's aber doch. Ein Ausblenden des Fehlers führt dazu, dass das Makro durchläuft, aber die entsprechenden Folien nicht eingefügt werden.
Ist so etwas jemandem bekannt und wie könnte man es beheben?
For i = LBound(vSlideIDs) To UBound(vSlideIDs)
sourcePresentation.Slides.FindBySlideID(vSlideIDs(i)).Copy
ActivePresentation.Slides.Paste 1 Hier hängt es sporadisch
Next i
ppZiel.Save
Set objPP = ActivePresentation
strFileOriginal = objPP.FullName
strFileName = Left(strFileOriginal, InStrRev(strFileOriginal, "."))
objPP.SaveAs FileName:=strFileName & "pdf", Fileformat:=ppSaveAsPDF
objPP.Close
Set ppZiel = Nothing
Gruß,
Ivo