Exportieren von spezifischen Folien als PPTX-Präsentationen

Question

Ich versuche, eine große Präsentation in kleinere PPTX-Dateien zu brechen.
Ich habe den folgenden Code ausprobiert, aber ich glaube nicht, dass die Exportfunktion für pptx funktioniert. Wenn ich das Makro ausführen bekomme ich Run-time error -2147467259 (80004005)': Slide (unknown member): Powerpoint can't export the slide(s) because no installed converter supports this file type.

Sub ExportCharts() 
Dim savePath As String 
Dim End_of_Pop As String 


'Input box for End of POP for File Name 
End_of_Pop = InputBox("Input End of POP (YYYYMMDD)") 


'Create folder for files for sharepoint 
MkDir ActivePresentation.Path & "\Week_Ending_" & End_of_Pop 

'Export as PPTX 
ActivePresentation.Slides.Range(Array(1, 2, 3, 4)).Export ActivePresentation.Path & "\Week_Ending_" & End_of_Pop & "\" & End_of_Pop & "_Weekly_AVA_Charts", "pptx" 


End Sub 

Answer 1

Wie wäre dieser Ansatz statt: Für jeden neuen pptx erforderlich, die ursprüngliche pptx duplizieren und dann gleitet bei Bedarf löschen. Dieser Ansatz ist sowohl manuell als auch programmatisch einfach. Lass mich wissen, wenn ich hier etwas verpasse.