The Fill property returns a Fill object that represents the fill properties of a shape.
Examples:
The following VBA example creates a rectangle and applies a fountain fill that progresses from red to yellow.
Sub Test()
Dim s As Shape
Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5)
s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(255, 255, 0)
End Sub