OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 31-01-2013, 05:33
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Post Extract selected from Powerclip

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
Reply With Quote
  #2  
Old 22-02-2013, 10:24
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,770
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Powerclip

You want to extract the shapes without the Macro?

-Shelby
Reply With Quote
  #3  
Old 25-02-2013, 01:49
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Post Extract

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
Reply With Quote
  #4  
Old 26-02-2013, 00:31
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,770
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default PowerClip

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:
Code:
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
Reply With Quote
  #5  
Old 28-02-2013, 02:16
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Default Extract

Thank you Shelby.

"sObj.OrderFrontOf sPowerClip" - this is it.

You are always helpful.

Esteem.

Thanks again.

GrzJanik
Reply With Quote
Reply

Tags
extract, powerclip, select


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Extract Info from Before CDR X3 File ljesus7 CorelDRAW/Corel DESIGNER VBA 0 23-10-2009 20:52
extract text and image BoomBoom New product ideas 5 27-03-2009 06:58
Extract object from the group dear CorelDRAW/Corel DESIGNER VBA 9 05-02-2009 11:03
Extract Multiple Powerclips dungbtl CorelDRAW/Corel DESIGNER VBA 2 15-04-2007 10:06
powerclip extract zaum CorelDRAW/Corel DESIGNER VBA 2 26-10-2005 07:26


All times are GMT -5. The time now is 16:42.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com