Object Model Reference : Classes : T : Transparency : Methods : Transparency.ApplyUniformTransparency |
Sub ApplyUniformTransparency(Value As Long)
Member of Transparency
The ApplyUniformTransparency method applies a uniform-fill transparency to a shape.
Parameter
|
Description
|
Value
|
Specifies the level of transparency, measured as a percentage from 0 to 100 (where higher values indicate a greater degree of transparency)
|
The following VBA example applies a uniform-fill transparency of 50% to a rectangle.
Sub Test() |
Dim s As Shape |
Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) |
s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(255, 255, 0) |
s.Outline.Type = cdrNoOutline |
s.Transparency.ApplyUniformTransparency 50 |
s.Transparency.Uniform = 50 ' a workaround |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.