Hallo liebes Forum,
ich bräuchte noch einmal eure Hilfe, da ich echt nicht weiterkomme :/
Ich erhalte die Fehlermeldung "Objekterstellung durch ActiveX-Komponente nicht möglich" bei diesem Code:
ActivePresentation.ExportAsFixedFormat "C:\Users\Christine\Desktop\Test.pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint
probiere ich stattdessen:
pptApp.ActivePresentation.ExportAsFixedFormat "C:\Users\Christine\Desktop\Test.pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint
erhalte ich als Fehlermeldung "Typen unverträglich" :/
Weiss jemand woran es liegen könnte?
LG
Christine
Hier der Ganz Code:
Sub Links_updaten_und_speichern()
Dim pp As PowerPoint.Presentation
Dim Sl As PowerPoint.Slide
Dim sh As Variant
Dim strPOTX As String
Dim strPfad As String
Dim pptApp As Object
strPfad = "C:\Users\XY\" 'Ordner der Vorlage
strPOTX = "XY" 'Name der Datei
Set pptApp = New PowerPoint.Application
Dim pptVorlage As String
pptVorlage = strPfad & strPOTX
Set pp = pptApp.Presentations.Open(pptVorlage)
pptApp.ActivePresentation.UpdateLinks
'
pptApp.ActivePresentation.ExportAsFixedFormat "C:\Users\Christine\Desktop\Test.pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint 'Objekterstellung durch Active X Komponent nicht möglich
|