Object Model Reference : Classes : E : EffectLens : Methods : EffectLens.Ungroup
|
|
| Object Model Reference : Classes : E : EffectLens : Methods : EffectLens.Ungroup |
Function Ungroup() As ShapeRange
Member of EffectLens
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 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.