VBA/Excel/Access/Word/PowerPoint/Slide Export Save

Default format (set on the Save tab of the Options dialog box) ppSaveAsDefault

 
Sub save()
    ActivePresentation.SaveAs FileName:="C:\HR.ppt", _
        FileFormat:=ppSaveAsDefault, EmbedTrueTypeFonts:=msoFalse
End Sub

Design Template: ppSaveAsTemplate

 
Sub save()
    ActivePresentation.SaveAs FileName:="C:\R.ppt", _
        FileFormat:=ppSaveAsTemplate, EmbedTrueTypeFonts:=msoFalse
End Sub

Exporting a Presentation or Some Slides to Graphics

 
Sub export()
    ActivePresentation.Export Path:="C:\", FilterName:="JPG", ScaleWidth:=800, ScaleHeight:=600
End Sub

Exports the sixth slide in the active presentation to the file named Slide6.png in the Z:\Public\Presentations folder, using the PNG format:

 
Sub exportPNG()
    ActivePresentation.Slides(6).Export _
        FileName:="C:\Slide6.png", FilterName:="PNG"
End Sub

Opening a Presentation

 
Sub openPre()
    Presentations.Open FileName:="C:\Time.ppt", ReadOnly:=msoFalse
End Sub
"Saving a Presentation

PowerPoint 95: ppSaveAsPowerPoint7

 
Sub save()
    ActivePresentation.SaveAs FileName:="C:\HR.ppt", _
        FileFormat:=ppSaveAsPowerPoint7, EmbedTrueTypeFonts:=msoFalse
End Sub

PowerPoint Show: ppSaveAsShow

 
Sub save()
    ActivePresentation.SaveAs FileName:="C:\HR.ppt", _
        FileFormat:=ppSaveAsShow , EmbedTrueTypeFonts:=msoFalse
End Sub

Presentation for Review: ppSaveAsPresForReview

 
Sub save()
    ActivePresentation.SaveAs FileName:="C:\HR.ppt", _
        FileFormat:=ppSaveAsPresForReview, EmbedTrueTypeFonts:=msoFalse
End Sub

Saves the presentation

 
Sub save()
    ActivePresentation.SaveAs FileName:="C:\HR.ppt", _
        FileFormat:=ppSaveAsPowerPoint7, EmbedTrueTypeFonts:=msoFalse
End Sub

Saving a Presentation under Its Existing Name

 
Sub save()
    ActivePresentation.Save
End Sub

Single File Web Page: ppSaveAsWebArchive

 
Sub save()
    ActivePresentation.SaveAs FileName:="C:\HR.ppt", _
        FileFormat:=ppSaveAsWebArchive, EmbedTrueTypeFonts:=msoFalse
End Sub

Web Page: ppSaveAsHTML

 
Sub save()
    ActivePresentation.SaveAs FileName:="C:\HR.ppt", _
        FileFormat:=ppSaveAsHTML, EmbedTrueTypeFonts:=msoFalse
End Sub