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

Parents Reply
  • The powerclip is inside the other because of a macro that I use that keeps the proportions because there are many shapes.

    OK, so you are using a macro to do something... and it creates a problem... and then you look for another macro to solve the problem that was caused by using the first macro.

    It might be better to create ONE macro that does the whole job without creating a new problem.

    This usually starts with trying to define the problem, e.g.:

    • What are you starting with?
    • What do you need as a result?
Children