Solid Method

expression.Solid

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