Sub Test() Dim s As Shape Dim ff As FountainFill Dim i As Long For Each s In ActivePage.Shapes If s.Fill.Type = cdrFountainFill Then Set ff = s.Fill.Fountain For i = 0 To ff.Colors.Count + 1 ff.Colors(i).Color.ConvertToGray Next i End If Next sEnd Sub