EffectLens.Magnification

Property Magnification As Double

The Magnification property returns or set the magnification level of a Magnify lens.

The following code example makes sure that no Magnify lens uses magnification level greater than 3.0x:

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