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 VBA 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