API Documentation > CorelDRAW > 2025-v26 > Transparency > IVGTransparency
Transparency.Uniform property
Gets or sets the uniformity of the transparency
Syntax:
Property Get Uniform() As Long
Property Let Uniform(ByVal Value As Long)
Remarks:
The Uniform property returns or specifies a percentage value indicating the level of a uniform transparency. Higher values indicate a greater degree of transparency.
Examples:
The following VBA example sets the transparency of all objects with a uniform transparency to 50%.
Sub Test()
Dim s As Shape
For Each s In ActivePage.Shapes
  If s.Transparency.Type = cdrUniformTransparency Then

 s.Transparency.Uniform = 50
  End If
Next s 
End Sub