Extract selected from Powerclip

[grzjanik]

Hi.

I'm using CorelDraw 12.

The tool wx.PClipPick from wx_Tools allow to select object inside powerclip.

Is it possible to extract only selected object from the powerclip without entering into this?

Regards.

GrzJanik

[shelbym]

You want to extract the shapes without the Macro?

-Shelby

[grzjanik]

Hi Shelby, thanks for your reply.

The tool wx.PClipPick from wx_Tools allow to select object inside powerclip without entering inside.

I need a macro which will extract the selected object (in this way) without entering the powerclip.

Object selected by the wx.PClipPick tool can be moved, you can reduce or enlarge.

Once the object is selected, I would like to extract it without entering the PowerClip.

I think that this is only possible, only I cannot deal with it.

Can you help me?

Regards
GrzJanik

[shelbym]

I can't promise this will work for CorelDRAW 12, but all you need to do is move the shape infront of the PowerClip to extract it. So select the shape with wx.PClipPick or use the Object Mangager and then do something like:

Sub ExtractSelectedFromPowerClip()
    Dim sObj As Shape
    Dim sPowerClip As Shape
    
    Set sObj = ActiveShape
    If sObj Is Nothing Then
        MsgBox "Nothing selected", vbCritical
        Exit Sub
    End If

    Set sPowerClip = sObj.PowerClipParent
    
    If sPowerClip Is Nothing Then
        MsgBox "Selected object is not part of a PowerClip.", vbCritical
        Exit Sub
    End If

    sObj.OrderFrontOf sPowerClip
    sObj.CreateSelection
End Sub

If you PowerClip is in another PowerClip the shape will be moved into the next PowerClip.

-Shelby

[grzjanik]

Thank you Shelby.

"sObj.OrderFrontOf sPowerClip" - this is it.

You are always helpful.

Esteem.

Thanks again.

GrzJanik