EffectLens.Freeze

Sub Freeze()

The Freeze method freezes a lens.

Frozen lenses redraw more quickly than non-frozen lenses. Once frozen, the contents of the object no longer interact with other objects on the screen.

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