AW: PowerPoint speichern
21.11.2013 05:35:05
fcs
Hallo Philipp,
hier ein entsprechendes PP-Makro.
Gruß
Franz
'Erstellt unter PowerPoint 2010
Sub PP_Datei_in_3_Formaten_speichern()
Dim objPP As Presentation
Dim strFileName As String, strFileOriginal As String
If MsgBox("Datei als PPTM, PPSX und PDF speichern", _
vbOKCancel + vbQuestion, _
"PowerPoint-Datei in mehren Formaten speichern") = vbCancel Then Exit Sub
Set objPP = ActivePresentation
strFileOriginal = objPP.FullName
'Dateiname ohne Erweiterung
strFileName = Left(strFileOriginal, InStrRev(strFileOriginal, "."))
'Datei speichern falls nicht gespeichert
If objPP.Saved = False Then objPP.Save
'Speichern als PDF
objPP.SaveAs FileName:=strFileName & "pdf", Fileformat:=ppSaveAsPDF
'Speichern mit Makros
objPP.SaveAs FileName:=strFileName & "pptm", Fileformat:= _
ppSaveAsOpenXMLPresentationMacroEnabled
'Speichern im ppsx-Format
Application.DisplayAlerts = ppAlertsNone
objPP.SaveAs FileName:=strFileName & "ppsx", Fileformat:=ppSaveAsOpenXMLShow
Application.DisplayAlerts = ppAlertsAll
'Originaldatei wieder öffnen
Application.Presentations.Open FileName:=strFileOriginal
'ppsx-Datei schliessen
objPP.Close
End Sub