powerclip macro change

Sub RevertPowerClipToShape()
ActiveDocument.ReferencePoint = cdrCenter

Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange

Dim s As Shape

If ActiveSelectionRange.Count = 0 Then
MsgBox "No shapes selected"
Exit Sub
Else
For Each s In OrigSelection
s.PowerClip.Shapes.All.Delete
Next s
End If
End Sub

this macro deletes the contents and keeps the container.
Can someone change to do it the other way around please