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 sEnd Sub