ShapeRange.SetShapesDefaultProperties, méthode (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 Variable qui représente un objet ShapeRange .

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

ShapeRange, 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.