The Type property returns or specifies the type of the fountain fill. A fountain fill can be linear, conical, radial, or square. The Type parameter returns cdrFountainFillType.
Examples:
The following VBA example changes all linear fountain fills on the active page to conical fountain fills.
Sub Test()
Dim s As Shape
For Each s In ActivePage.Shapes
If s.Fill.Type = cdrFountainFill Then
If s.Fill.Fountain.Type = cdrLinearFountainFill Then
s.Fill.Fountain.Type = cdrConicalFountainFill
End If
End If
Next s
End Sub