Solid Method

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