Solid 方法

将填充方式设为单色。此方法可将过渡、纹理、图案或背景填充色转换成纯色填充。

expression   必需。返回 FillFormat 对象的表达式。

示例

本示例将活动文档中的所有填充色转换为一致采用红色填充。

Dim shapeLoop As Shape

For Each shapeLoop In ActiveDocument.Shapes
    With shapeLoop.Fill
        .Solid
        .ForeColor.RGB = RGB(255, 0, 0)
    End With
Next