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