The Fountain property returns a FountainFill object that represents the settings for a fountain fill.
Examples:
The following VBA example unlocks the fountain steps for all shapes on a page.
Sub Test()
Dim s As Shape
For Each s In ActivePage.Shapes
If s.Fill.Type = cdrFountainFill Then
If s.Fill.Fountain.Steps <> 0 Then
s.Fill.Fountain.Steps = 0
End If
End If
Next s
End Sub