Shape.SetShapesDefaultProperties Method

Applies the formatting for the specified shape or shape range to the default shape. Shapes created after this method has been used will have this formatting applied to them by default.

Syntax

expression.SetShapesDefaultProperties

expression   A variable that represents a Shape object.

Remarks

The SetShapesDefaultProperties method stores two different sets of default properties, one for a Shape object's AutoShapeType Property, and another for a TextFrame object. In other words, if this method is called on an AutoShape, the default formatting of that object will apply only to new AutoShapes, and will not apply to new text boxes. If this method is called on a text box, the default formatting of that object will apply only to new text boxes, and will not apply to new AutoShapes.

Example

This example adds a rectangle to the active publication, 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.

  With ActiveDocument.Pages(1).Shapes
With .AddShape(Type:=msoShapeRectangle, _
        Left:=5, Top:=5, Width:=80, Height:=60)
    With .Fill
        .ForeColor.RGB = RGB(0, 0, 255)
        .BackColor.RGB = RGB(0, 204, 255)
        .Patterned Pattern:=msoPatternHorizontalBrick
    End With
    .<strong class="bterm">SetShapesDefaultProperties</strong>
End With

.AddShape Type:=msoShapeRectangle, _
    Left:=90, Top:=90, Width:=40, Height:=30

End With

See Also

• Shape Object
• Shape Object Members