Share via

Shape.SetShapesDefaultProperties Method

  • Article
Word Developer Reference

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.

Visual Basic for Applications 
  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