The Lens property returns the EffectLens object for the lens effect.
Examples:
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