| Name | Type | Description |
|---|---|---|
| Level |
Long
|
Specifies the lowest level from which you want to remove the shapes. The shapes are removed from this level and all levels above them. |
Sub Test() Dim s As Shape Dim p As PowerClip On Error Resume Next For Each s In ActivePage.Shapes Set p = Nothing Set p = s.PowerClip If Not p Is Nothing Then ActiveDocument.ClearSelection p.Shapes.All.RemoveFromContainer End If Next s End Sub