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 IfEnd Sub
this macro deletes the contents and keeps the container.Can someone change to do it the other way around please
This extracts the contents and deletes the container. It can work on multiple selected PowerClips.
Sub PowerClips_Extract_Contents_Delete_Frames() Dim sr As ShapeRange Dim s As Shape On Error GoTo ErrHandler If Not ActiveDocument Is Nothing Then Set sr = ActiveSelectionRange For Each s In sr If Not s.PowerClip Is Nothing Then s.PowerClip.ExtractShapes s.Delete End If Next s Else MsgBox "No document is active.", vbInformation, "PowerClips Extract Contents Delete Frames" End If ExitSub: Refresh Exit Sub ErrHandler: MsgBox "Error occurred: " & Err.Description & vbCrLf & vbCrLf & "PowerClips_Extract_Contents_Delete_Frames()" Resume ExitSub End Sub
sir this code delete the box but if we have color on the box it also get deleted. what if we need the box with color and it only extract the content1. in all powerclips of the document 2. it also crop outside area of the box as well for corel x6. example file is in the below linkwetransfer.com/.../6830ce