Sets the specified fill to a uniform color. Use this method to convert a gradient, textured, patterned, or background fill back to a solid fill.
expression.Solid
expression Required. An expression that returns a FillFormat object.
Example
This example converts all fills on the active document to uniform red fills.
Dim shapeLoop As Shape
For Each shapeLoop In ActiveDocument.Shapes
With shapeLoop.Fill
.Solid
.ForeColor.RGB = RGB(255, 0, 0)
End With
Next