Table of contents
Collapse the table of content
Expand the table of content

Shape.SetShapesDefaultProperties Method (PowerPoint)

office 365 dev account|Last Updated: 6/12/2017
1 Contributor

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


expression. SetShapesDefaultProperties

expression A variable that represents a Shape object.


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 = ActivePresentation.Slides(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

    ' Sets formatting for default shapes


    End With

' New shape has default formatting

    .AddShape msoShapeRectangle, 90, 90, 40, 30

End With

See also


Shape Object

© 2018 Microsoft