API Documentation > CorelDRAW > 2025-v26 > Transparency > IVGTransparency
Transparency.ApplyUniformTransparency method
Applies a uniform fill transparency to the object
Syntax:
Sub ApplyUniformTransparency(ByVal Value As Long)
Parameters:
Name Type Description
Value
Long
Remarks:
The ApplyUniformTransparency method applies a uniform-fill transparency to a shape.
Examples:
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