Object Model Reference : Classes : P : PowerClip : Methods : PowerClip.ExtractShapes
|
|
| Object Model Reference : Classes : P : PowerClip : Methods : PowerClip.ExtractShapes |
Function ExtractShapes() As ShapeRange
Member of PowerClip
The ExtractShapes method removes all shapes from all PowerClip objects. When the contents of a PowerClip object are extracted, the container and its contents become separate objects.
The following VBA example extracts all shapes from all PowerClip objects on the active page.
Sub Test() |
Dim s As Shape |
Dim pwc As PowerClip |
For Each s In ActivePage.Shapes |
Set pwc = Nothing |
On Error Resume Next |
Set pwc = s.PowerClip |
On Error GoTo 0 |
If Not pwc Is Nothing Then |
s.CreateSelection |
pwc.ExtractShapes |
End If |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.