Application.PresentationClose Event (PowerPoint)
Occurs immediately before any open presentation closes, as it is removed from the Presentations collection.
Version Information
Version Added: PowerPoint 2007
Syntax
expression .PresentationClose(Pres)
expression An expression that returns a Application object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
Pres |
Required |
Presentation |
The presentation that is being closed. |
Example
This example saves a copy of the active presentation as an HTML file, with the same name and within the same folder.
Private Sub App_PresentationClose(ByVal Pres As Presentation)
FindNum = InStr(1, Pres.FullName, ".")
HTMLName = Mid(Pres.FullName, 1, FindNum - 1) _
& ".htm"
Pres.SaveCopyAs HTMLName, ppSaveAsHTML
End Sub