API Documentation > CorelDRAW > 2025-v26 > EffectLens > IVGEffectLens
EffectLens.Magnification property
Gets or sets the lens magnification
Syntax:
Property Get Magnification() As Double
Property Let Magnification(ByVal Value As Double)
Remarks:
The Magnification property returns or set the magnification level of a Magnify lens.
Examples:
The following VBA example makes sure that no Magnify lens uses magnification level greater than 3.0×.
Sub Test1()
Dim s As Shape, eff As Effect
For Each s In ActivePage.Shapes
  For Each eff In s.Effects

 If eff.Type = cdrLens Then


If eff.Lens.Type = cdrLensMagnify Then


  If eff.Lens.Magnification > 3 Then



 eff.Lens.Magnification = 3


  End If


End If


Exit For

 End If
  Next eff
Next s 
End Sub