Méthode Shape.SetShapesDefaultProperties (PowerPoint)

Applique le format de la forme spécifiée à la forme par défaut. Les formes créées après utilisation de cette méthode appliqueront ce format par défaut.

Syntaxe

expression. SetShapesDefaultProperties

expression Une variable qui représente uneForme d’objet.

Exemple

Cet exemple ajoute un rectangle à myDocument, met en forme le remplissage du rectangle, applique la mise en forme du rectangle à la forme par défaut et ajoute ensuite un rectangle plus petit au document. Le deuxième rectangle présente le même remplissage que le premier.

Set mydocument = ActivePresentation.Slides(1)

With mydocument.Shapes

    With .AddShape(msoShapeRectangle, 5, 5, 80, 60)

        With .Fill

            .ForeColor.RGB = RGB(0, 0, 255)

            .BackColor.RGB = RGB(0, 204, 255)

            .Patterned msoPatternHorizontalBrick

        End With

    ' Sets formatting for default shapes

        .SetShapesDefaultProperties

    End With

' New shape has default formatting

    .AddShape msoShapeRectangle, 90, 90, 40, 30

End With

Voir aussi

Shape, objet

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.