Remove PowerClip Frame


I'm trying to create a macro that reverts all the selected shapes from PowerClip to normal shapes but without success.

My question is: Where is the PowerClip - Frame - No Frame in the VBA. I can't find it.

And no, if you have more than one PowerClip selected you can't access this menu item.

Because I usually do this for many shapes at once it would be greate to have.

My current code is:

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
        For Each s In OrigSelection
        Next s
    End If
End Sub

This removes the objects inside the powerclip but I still have the Frame on the shape.

Any help would be appreciated.

Best regards.