Transparency.ApplyUniformTransparency method - Developer Area

API Documentation > CorelDRAW > X7.6 > 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	Specifies the level of transparency, measured as a percentage from 0 to 100 (where higher values indicate a greater degree of transparency)

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

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25