| Name | Type | Description |
|---|---|---|
| Level |
Long
|
Specifies the lowest level from which to remove the shape. The shape is removed from this level and all levels above it. |
Sub Test() Dim s As Shape, ss 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 For Each ss In p.Shapes If ss.Type = cdrEllipseShape Then ActiveDocument.ClearSelection ss.RemoveFromContainer End If Next ss End If Next s End Sub