Syntax

expression.SetShapesDefaultProperties

expression A variable that represents a ShapeRange object.

Example

This example adds a rectangle to myDocument, formats the rectangle's fill, sets the rectangle's formatting as the default shape formatting, 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 = 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

See also: