Share via

Solid Method [Publisher 2003 VBA Language Reference]

  • Article

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 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

Applies to | FillFormat Object