Object Model Reference : Classes : T : Transparency : Properties : Transparency.AppliedTo |
Property AppliedTo As cdrTransparencyAppliedTo
Member of Transparency
The AppliedTo property returns or specifies whether a transparency is applied to the fill or outline of a shape, or to both.
The following VBA example creates a rectangle with a fill and an outline, applying 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 |
Copyright 2013 Corel Corporation. All rights reserved.