Solid 方法

将指定填充设为统一的颜色。使用此方法可将过渡、纹理、图案或背景填充转换为统一的颜色。

expression  必选。该表达式返回一个 FillFormat 对象。

示例

本示例将 myDocument 中的所有填充转换为统一的红色填充。

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    With s.Fill
        .Solid
        .ForeColor.RGB = RGB(255, 0, 0)
    End With
Next