Application.PresentationSave Event (PowerPoint)
Occurs before any open presentation is saved.
Syntax
expression .PresentationSave(Pres)
expression A variable that represents an Application object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
Pres |
Required |
Presentation |
The presentation to be saved. |
Remarks
For information about using events with the Application object, see How to: Use Events with the Application Object.
Example
This example saves the current presentation as an HTML version 4.0 file with the name "mallard.htm." It then displays a message indicating that the current named presentation is being saved in both PowerPoint and HTML formats.
Private Sub App_PresentationSave(ByVal Pres As Presentation)
With Pres.PublishObjects(1)
PresName = .SlideShowName
.SourceType = ppPublishAll
.FileName = "C:\HTMLPres\mallard.htm"
.HTMLVersion = ppHTMLVersion4
MsgBox ("Saving presentation " & "'" _
& PresName & "'" & " in PowerPoint" _
& Chr(10) & Chr(13) _
& " format and HTML version 4.0 format")
.Publish
End With
End Sub