Examples:
The following VBA example displays the number of color points in the fountain fill of the selected object. The selected object must have fountain fill before executing this code.
Sub Test()
MsgBox "Fountain fill contains " & ActiveShape.Fill.Fountain.Colors.Count & _
" intermediate color points."
End Sub