Fill.ApplyFountainFill

Function ApplyFountainFill([StartColor As Color], [EndColor As Color], [Type As cdrFountainFillType = cdrLinearFountainFill], [Angle As Double], [Steps As Long], [EdgePad As Long], [MidPoint As Long = 50], [BlendType As cdrFountainFillBlendType = cdrDirectFountainFillBlend], [CenterOffsetX As Double], [CenterOffsetY As Double]) As FountainFill

Member of Fill

The ApplyFountainFill method applies a fountain fill to an object.


Parameters	Description
StartColor	Specifies the starting color of a fountain fill This parameter is optional, and its default value is Nothing.
EndColor	Specifies the ending color of a fountain fill effect This parameter is optional, and its default value is Nothing.
Type	Specifies the type of the fountain fill. The Type parameter has a value of cdrFountainFillType. This parameter is optional, and its default value is cdrLinearFountainFill (1).
Angle	Specifies the angle in linear, conical or square fountain fills. Positive values rotate the fill counterclockwise; negative values rotate it clockwise. This parameter is optional, and its default value is 0.
Steps	Specifies the number of steps in a fountain fill This parameter is optional, and its default value is 0.
EdgePad	Specifies the length of the edge pad of linear, radial, and square fountain fills This parameter is optional, and its default value is 0.
MidPoint	Specifies the point at which two colors in a fountain fill converge. This value is expressed as a percentage. This parameter is optional, and its default value is 50.
BlendType	Specifies the type of fountain fill blend This parameter is optional, and its default value is cdrDirectFountainFillBlend (0).
CenterOffsetX	This parameter is optional, and its default value is 0.
CenterOffsetY	This parameter is optional, and its default value is 0.

The following code example creates a rectangle and applies a fountain fill that blends 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