EffectLens.Ungroup

Function Ungroup() As ShapeRange

The Ungroup method breaks up the group of contents in a frozen lens, resulting in a number of individual shapes generated by the lens. The shapes are returned from the method as a ShapeRange collection.

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