Shape.SetShapesDefaultProperties method (Word)

Applies the formatting of the default shape for a document to the specified shape.

Syntax

expression.SetShapesDefaultProperties

expression Required. A variable that represents a Shape object.

Remarks

New shapes inherit many of their attributes from the default shape.

Example

This example adds a rectangle to myDocument , formats the rectangle's fill, applies the rectangle's formatting to the default shape, and then adds another (smaller) rectangle to the document. The second rectangle has the same fill as the first one.

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

See also

Shape Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.