Sub Test() Dim ff As FountainFill Dim i As Long Set ff = ActiveShape.Fill.Fountain For i = 0 To ff.Colors.Count + 1 ff.Colors(i).Color.ConvertToGray Next iEnd Sub