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