How to save a presentation |
Previous Top Next |
PowerPoint.Save;
Or for SaveAs:
Code: |
var EmbedFonts: OleVariant; begin EmbedFonts := False; PowerPoint.ActivePresentation.SaveAs('PresName.ppt', ppSaveAsPresentation, EmbedFonts); |
The second parameter for SaveAs determines the save format - possible values are ppSaveAsAddIn, ppSaveAsPowerPoint3, ppSaveAsPowerPoint4, ppSaveAsPowerPoint7, ppSaveAsPresentation, ppSaveAsRTF, or ppSaveAsTemplate. These are constants defined in the type library. If you aren't using the type library, you can define them yourself like this:
Code: |
const ppSaveAsPresentation = $00000001; ppSaveAsPowerPoint7 = $00000002; ppSaveAsPowerPoint4 = $00000003; ppSaveAsPowerPoint3 = $00000004; ppSaveAsTemplate = $00000005; ppSaveAsRTF = $00000006; ppSaveAsShow = $00000007; ppSaveAsAddIn = $00000008; ppSaveAsWizard = $00000009; ppSaveAsPowerPoint4FarEast = $0000000A; ppSaveAsDefault = $0000000B; |
©Drkb::04459