PresentationOpen Event
Occurs after an existing presentation is opened, as it is added to the Presentations collection.
Private Subapplication**_PresentationOpen(ByValPresAs Presentation)**
*application * An object of type Application declared with events in a class module. For information about using events with the Application object, see Using Events with the Application Object .
*Pres * The presentation that is opened.
Example
This example modifies the background color for color scheme three, applies the modified color scheme to the presentation that was just opened, and displays the presentation in slide view.
Private Sub App_PresentationOpen(ByVal Pres As Presentation)
With Pres
Set CS3 = .ColorSchemes(3)
CS3.Colors(ppBackground).RGB = RGB(240, 115, 100)
With Windows(1)
.Selection.SlideRange.ColorScheme = CS3
.ViewType = ppViewSlide
End With
End With
End Sub
Applies to | Application Object
See Also | PresentationClose Event