API Documentation > CorelDRAW > 2025-v26 > EffectLens > IVGEffectLens
EffectLens.Type property
Gets or sets the lens type of cdrLensType type
Syntax:
Property Get Type() As cdrLensType
Property Let Type(ByVal Value As cdrLensType)
Remarks:
The Type property returns or specifies the lens type. The Type property returns cdrLensType.
Examples:
The following VBA example selects all Transparency lenses on the page.
Sub Test1()
Dim s As Shape, eff As Effect
Dim sr As New ShapeRange
For Each s In ActivePage.Shapes
  For Each eff In s.Effects

 If eff.Type = cdrLens Then


If eff.Lens.Type = cdrLensTransparency Then sr.Add s


  Exit For


End If

 Next eff
  Next s
  sr.CreateSelection

End Sub