全部显示

ExtraColors 属性

返回一个代表指定演示文稿中可用的其他颜色的 ExtraColors 对象。只读。

示例

本示例在当前演示文稿第一张幻灯片中添加一个矩形，并设定其颜色为第一种其他颜色。演示文稿中必须已定义至少一种其他颜色，否则本示例将失败。

With ActivePresentation
    Set rect = .Slides(1).Shapes _
        .AddShape(msoShapeRectangle, 50, 50, 100, 200)
    rect.Fill.ForeColor.RGB = .ExtraColors(1)
End With