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 myDocument to uniform red fills.
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
With s.Fill
.Solid
.ForeColor.RGB = RGB(255, 0, 0)
End With
Next