Applies the formatting of the specified shape to a default shape for that document. New shapes inherit many of their attributes from the default shape.
Syntax
expression.SetShapesDefaultProperties
expression Required. An expression that returns a Shape or ShapeRange object.
Remarks
Using this method is equivalent to using the Set AutoShape Defaults command on the Draw menu on the Drawing toolbar.