Partager via


Événement Application.AfterPresentationOpen (PowerPoint)

Se produit après l’ouverture d’une présentation existante.

Syntaxe

expression. AfterPresentationOpen( _Pres_ )

Expression Expression qui renvoie un objet Application .

Parameters

Nom Requis/Facultatif Type de données Description
Prés Requis Presentation Présentation ouverte.

Exemple

Cet exemple montre comment modifier la couleur d’arrière-plan du jeu de couleurs 3, puis appliquer le jeu de couleurs modifié à la présentation ouverte et afficher celle-ci en mode Diapositive.

Private Sub App_AfterPresentationOpen(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

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.