Événement Application.PresentationNewSlide (PowerPoint)

Article
04/07/2023

Se produit lorsqu’une diapositive est créée dans une présentation ouverte, lorsque la diapositive est ajoutée à la collection Slides .

Syntaxe

expression. PresentationNewSlide( _Sld_ )

Expression Expression qui renvoie un objet Application .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Sld	Requis	Slide	Nouvelle diapositive.

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 nouvelle diapositive. Il montre ensuite comment ajouter le texte par défaut à la forme 1 si celle-ci comporte un cadre de texte.

Private Sub App_PresentationNewSlide(ByVal Sld As Slide)

    With ActivePresentation

        Set CS3 = .ColorSchemes(3)

        CS3.Colors(ppBackground).RGB = RGB(240, 115, 100)

        Windows(1).Selection.SlideRange.ColorScheme = CS3

    End With



    If Sld.Layout <> ppLayoutBlank Then

        With Sld.Shapes(1)

            If .HasTextFrame = msoTrue Then

               .TextFrame.TextRange.Text = "King Salmon"

            End If

        End With

    End If

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.

Partager via