Object Model Reference : Classes : T : Transparency : Properties : Transparency.End |
Property End As Long
Member of Transparency
The End property returns or specifies a percentage value that indicates the level of transparency at the end of a fountain transparency. Higher values indicate a greater degree of transparency.
The following VBA example creates a rectangle and applies a radial fountain transparency to it. It then duplicates the rectangle and inverts its transparency.
Sub Test() |
Dim s As Shape, s1 As Shape |
Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) |
s.Fill.UniformColor.RGBAssign 255, 0, 0 |
s.Transparency.ApplyFountainTransparency , , cdrRadialFountainFill |
Set s1 = s.Duplicate(2, 0) |
s1.Transparency.Start = 100 |
s1.Transparency.End = 0 |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.