Transparency.ApplyUniformTransparency

Sub ApplyUniformTransparency(Value As Long)

The ApplyUniformTransparency method applies a uniform-fill transparency to a shape.


Parameters	Description
Value	Specifies the level of transparency in the uniform transparency fill. The Value parameter is a percentage from 0 to 100. Higher values indicate a greater degree of transparency.

The following code example applies a uniform 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