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