Shape.SetShapesDefaultProperties, méthode (Word)

  • Article

Applique la mise en forme de la forme par défaut d'un document à la forme spécifiée.

Syntaxe

expression. SetShapesDefaultProperties

expression Obligatoire. Variable qui représente un objet Shape.

Remarques

Les nouvelles formes reçoivent un grand nombre des attributs de la forme par défaut.

Exemple

Cet exemple montre comment ajouter un rectangle à myDocument , mettre en forme le remplissage du rectangle, appliquer la mise en forme du rectangle à la forme par défaut, puis ajouter un autre rectangle (plus petit) au document. Le deuxième rectangle présente le même remplissage que le premier.

Set mydocument = ActiveDocument 
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.