PresentationOpen Event

Occurs after an existing presentation is opened, as it is added to the Presentations collection.

Private Sub application_PresentationOpen(ByVal Pres As 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