将指定的填充格式设置为均匀的颜色。 可用本方法将带有渐变、纹理、图案或背景的填充格式转换为单色的填充格式。
语法
表达式。固体
表达 一个代表 FillFormat 对象的变量。
示例
以下示例将当前出版物第一页上的所有填充转换为统一的红色填充。
Dim shpLoop As Shape
For Each shpLoop In ActiveDocument.Pages(1).Shapes
With shpLoop.Fill
.Solid
.ForeColor.RGB = RGB(255, 0, 0)
End With
Next shpLoop
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。