Sub Test() Dim ff As FountainFill If ActiveShape.Fill.Type = cdrFountainFill Then Set ff = ActiveShape.Fill.Fountain MsgBox "The fountain fill is from " & ff.StartColor.Name & _ " to " & ff.EndColor.Name Else MsgBox "The selected shape doesn't have a fountain fill" End IfEnd Sub