Solid Method Example
This example converts all fills on myDocument to uniform red fills.
myDocument
Set myDocument = Worksheets(1) For Each s In myDocument.Shapes With s.Fill .Solid .ForeColor.RGB = RGB(255, 0, 0) End With Next