Transparency.ApplyFountainTransparency

Function ApplyFountainTransparency([Start As Long], [End As Long = 100], [Type As cdrFountainFillType = cdrLinearFountainFill], [Angle As Double], [Steps As Long], [EdgePad As Long], [MidPoint As Long = 50], [CenterOffsetX As Double], [CenterOffsetY As Double]) As FountainFill

Member of Transparency

The ApplyFountainTransparency method applies a fountain-fill transparency to a shape.


Parameters	Description
Start	Represents a percentage value that indicates the level of transparency in the beginning of a fountain transparency. Higher values indicate a greater degree of transparency. This parameter is optional, and its default value is 0.
End	Represents a percentage value that indicates the level of transparency in the end of a fountain transparency. Higher values indicate a greater degree of transparency. This parameter is optional, and its default value is 100.
Type	Specifies the type of fountain fill in the transparency. The Type parameter has a value of cdrFountainFillType. This parameter is optional, and its default value is cdrLinearFountainFill (1).
Angle	Specifies the degree of the slant in linear, conical, or square fountain-fill transparencies. 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 bands (steps) used to display a fountain fill This parameter is optional, and its default value is 0.
EdgePad	Specifies the length of solid colors at the beginning and end of the fountain transparency before they start blending with the next color in the fountain fill. You can change the edge pad of linear, radial, and square fountain fills. This parameter is optional, and its default value is 0.
MidPoint	Represents the position of the mid-point, the point at which two colors in a fountain fill converge This parameter is optional, and its default value is 50.
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 applies a radial fountain transparency to each shape that has a fill:

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.Fill.Type <> cdrNoFill Then 
   s.Transparency.ApplyFountainTransparency 0, 90, 
cdrRadialFountainFill 
  End If 
 Next s 
End Sub