ShapeRange.SetShapesDefaultProperties 方法 (PowerPoint)

将指定形状的格式应用于默认形状。 使用该方法后所创建的形状将默认应用此格式。

语法

表达式。SetShapesDefaultProperties

表达 一个代表 ShapeRange 对象的变量。

示例

本示例向 myDocument 中添加矩形，格式化矩形的填充，将该矩形的格式应用于默认形状，再向该文档中添加一个较小的矩形。 后一个矩形与前一个矩形有相同的填充格式。

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

        .SetShapesDefaultProperties

    End With

' New shape has default formatting

    .AddShape msoShapeRectangle, 90, 90, 40, 30

End With

另请参阅

绘图对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。