DefaultShape 属性

返回代表演示文稿中默认形状的 Shape 对象。只读。

示例

本示例为当前演示文稿的第一张幻灯片添加一个形状，将演示文稿中形状的默认填充颜色设为红色。然后添加另一个形状，默认填充颜色将自动应用于此形状。

With Application.ActivePresentation
    Set sld1Shapes = .Slides(1).Shapes
    sld1Shapes.AddShape msoShape16pointStar, 20, 20, 100, 100
    .DefaultShape.Fill.ForeColor.RGB = RGB(255, 0, 0)
    sld1Shapes.AddShape msoShape16pointStar, 150, 20, 100, 100
End With