API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.Transparency property
Returns the transparency for the current object if applicable
Syntax:
Property Get Transparency() As Transparency
Remarks:
The Transparency property returns a Transparency object that represents the transparency settings for the active shape.
Examples:
The following VBA example applies a 40% uniform transparency to all rectangles and a fountain transparency to all ellipses on a page.
Sub Test()
Dim s As Shape
For Each s In ActivePage.Shapes
  Select Case s.Type

 Case cdrRectangleShape


s.Transparency.ApplyUniformTransparency 40


' Working around the ApplyUnifromTransparency method


If s.Transparency.Uniform <> 40 Then


  s.Transparency.Uniform = 40


End If

 Case cdrEllipseShape


s.Transparency.ApplyFountainTransparency Angle:=45

 Case Else


If s.Transparency.Type <> cdrNoTransparency Then


  s.Transparency.ApplyNoTransparency


End If
  End Select
Next s 
End Sub