Partager via

ShapeRange.SetShapesDefaultProperties, méthode (Excel)

  • Article

Cette méthode fait de la mise en forme de la forme spécifiée la mise en forme par défaut de la forme.

Syntaxe

expression. SetShapesDefaultProperties

Expression Variable qui représente un objet ShapeRange .

Exemple

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

Set myDocument = Worksheets(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 
 ' Set formatting as default formatting 
 .SetShapesDefaultProperties 
 End With 
 ' Create new shape with default formatting 
 .AddShape msoShapeRectangle, 90, 90, 40, 30 
End With

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.