Object Model Reference : Classes : E : EffectLens : Methods : EffectLens.Freeze
|
|
| Object Model Reference : Classes : E : EffectLens : Methods : EffectLens.Freeze |
Sub Freeze()
Member of EffectLens
The Freeze method freezes a lens.
Frozen lenses redraw more quickly than non-frozen lenses. When a lens is frozen, the contents of the object no longer interact with other objects on the screen.
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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.