EffectLens.Magnification property - Developer Area

API Documentation > CorelDRAW > 2022-v24.2 > 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

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