The ExtractShapes method removes all shapes from all PowerClip objects. When the contents of a PowerClip object are extracted, the container and its contents become separate objects.
Examples:
The following VBA example extracts all shapes from all PowerClip objects 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