Sub Test() Dim s As Shape Dim pf As PatternFill For Each s In ActivePage.Shapes If s.Fill.Type = cdrPatternFill Then Set pf = s.Fill.Pattern If pf.Type = cdrTwoColorPattern Then pf.BackColor.ConvertToGray pf.FrontColor.ConvertToGray End If End If Next sEnd Sub