Transparency.AppliedTo

Property AppliedTo As cdrTransparencyAppliedTo

The AppliedTo property returns or sets whether the transparency is applied to a shape’s fill or outline, or both.

The following code example creates a rectangle with a fill and an outline, and it applies a fountain transparency to its outline:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateRectangle2(0, 0, 2, 2, 0.5, 0.5, 0.5, 0.5) 
 s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), 
CreateRGBColor(255, 255, 0), , 45 
 s.Outline.Width = 0.3 
 s.Outline.Color.RGBAssign 0, 128, 0 
 s.Transparency.ApplyFountainTransparency 0, 100, 
cdrLinearFountainFill 
 s.Transparency.AppliedTo = cdrApplyToOutline 
End Sub