PowerClip.ExtractShapes

Function ExtractShapes() As ShapeRange

The ExtractShapes method removes all shapes from their containers.

By extracting the contents of a PowerClip object, the container and content objects return to being separate objects.

The following code example extracts all shapes from all PowerClip containers 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