EffectLens.Shapes

Property Shapes As Shapes

The Shapes property returns the Shapes collection, which contains all intermediate shapes generated by a frozen lens.

The Shapes property returns a read-only value.

The following VBA example creates a Fish eye lens, freezes it, and then ungroups and moves the resulting objects by 4" to the right.

Sub Test()

Dim s1 As Shape, s2 As Shape, sr As ShapeRange

Set s1 = ActiveLayer.CreateRectangle(0, 0, 5, 5)

s1.Fill.ApplyFountainFill

Set s2 = ActiveLayer.CreateEllipse(1, 1, 6, 6)

With s2.CreateLens(cdrLensFishEye, 100).Lens

.Freeze

Set sr = .Ungroup

End With

sr.Move 4, 0

End Sub