Effect.Lens

Property Lens As EffectLens

Member of Effect

The Lens property returns the EffectLens object for the lens effect.

The Lens property returns a read-only value.

The following code example creates an ellipse and applies a frozen fisheye lens to it.

Sub Test() 
 Dim s As Shape, e As Effect 
 Dim x As Double, y As Double 
 x = ActivePage.SizeWidth / 2 
 y = ActivePage.SizeHeight / 2 
 Set s = ActiveLayer.CreateEllipse2(x, y, 2) 
 Set e = s.CreateLens(cdrLensFishEye, 100) 
 e.Lens.Freeze 
End Sub