Solid 方法

       

将指定的填充格式设置为均一的颜色。可用本方法将带有渐进色、纹理、图案或背景的填充格式转换为单色的填充格式。

expression.Solid

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

示例

本示例将 myDocument 中的所有填充格式都转换为均一的红色填充格式。

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