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   Required. An expression that returns one of the objects in the Applies To list.

Example

This example converts all fills on the first page of the active publication to uniform red fills.

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