API Documentation > CorelDRAW > 2025-v26 > Transparency > IVGTransparency
Transparency.AppliedTo property
Gets or sets AppliedTo property of the transparency
Syntax:
Property Get AppliedTo() As cdrTransparencyAppliedTo
Property Let AppliedTo(ByVal Value As cdrTransparencyAppliedTo)
Remarks:
The AppliedTo property returns or specifies whether a transparency is applied to the fill or outline of a shape, or to both.
Examples:
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