In diesem Beispiel werden in myDocument alle Füllungen in einfarbiges Rot umgewandelt.
Set myDocument = Worksheets(1) For Each s In myDocument.Shapes With s.Fill .Solid .ForeColor.RGB = RGB(255, 0, 0) End With Next