OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 12-02-2007, 03:33
ljesus7
Guest
 
Posts: n/a
Question Method that selected individual do Duplicate to New Document ??

Hello Alex!!

This writing is writing that is made out to translation machine.

Use Clipboard or Copy & if use Paste time long take .

If use Duplicate and Clone function, the speed is copied fast.

By the way, Activeselection done object method that can do Duplicate to other page be ?

Ask suitable example if there is method.

Although there is no problem in same page inside, do not know method that can do Duplicate by other page.

Your site will pray that is eternal.

Thank you .

=======================================================

Add on Question

Thank you .

1. Individual that is outside work size knew that recognize by Masterpage's Document Layer when create other page.

2. In Activedocument.Pages (1) Duplicate done Object Activedocument.Pages (2) . Knew that do Move by Activate and the page

=======================================================================================================================

Knew since use Duplicate how in other page.

Other anxious item occurred

Whether must use Duplicate how in new Document, inform.

[ Working Program Logic ]

Compare individual two size that Object is selected to exist more than 2.
If bulk of selected individual is same, it flies New Document.
And, create Page 1, 2 to New Document.
Selected individual to New Document's ActivePage Duplicate and, 1 times individual are Page 1, 2 times individual do Move to Page2.
Program order that consider is like this.

==================================================================================================

Embodying program difficult point that must store information of selected individual [sizewidht, sizeheight, name, etc] .

Selected individual Duplicate being done Duplicate part that by done individual selection is moved .

In New Document Duplicate method to move done individual on new page .

Last edited by ljesus7; 12-02-2007 at 18:46.
Reply With Quote
  #2  
Old 12-02-2007, 10:05
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

Code:
Sub testdup()
   Dim sr As ShapeRange
   Set sr = ActiveSelectionRange.Duplicate(ActivePage.SizeWidth * 2, ActivePage.SizeHeight * 2)
   ActiveDocument.Pages(2).Activate
   sr.Move -ActivePage.SizeWidth * 2, -ActivePage.SizeHeight * 2
End Sub
this code implements 1.manual duplicating, 2.moving to "Desktop", 3.changing active page, 4.moving from desktop to the new page

P.S. offset is twice the size of page to ensure that objects will be outside the page, though I could write with more precision, I hope it is enough
Reply With Quote
  #3  
Old 12-02-2007, 11:13
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,941
Blog Entries: 4
Default

Here is another way:

Code:
Sub CopyToOtherPage()
    Dim sr As ShapeRange
    Set sr = ActiveSelectionRange.Duplicate()
    sr.MoveToLayer ActiveDocument.Pages(2).ActiveLayer
End Sub
Reply With Quote
  #4  
Old 12-02-2007, 11:23
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

Alex, cool, and here is double combo :-)

Code:
Sub testdup()
   ActiveSelectionRange.Duplicate().MoveToLayer ActiveDocument.Pages(2).ActiveLayer
End Sub
just one line
Reply With Quote
  #5  
Old 12-02-2007, 17:24
vindaa
Guest
 
Posts: n/a
Default Very Cool

Hey!!! this is wonderful, never thought of it, this can be very useful.

Only one thing I woud like to suggest:- Instead of duplicating to "Page 2" can we duplicate to "Next Page" Becuase what happens hear is that when my object is on page 4 it will be duplicated to page 2 and not the next page.
Or else we can have a dialogue box asking for the page no on which the object is required.
Reply With Quote
  #6  
Old 12-02-2007, 17:37
ljesus7
Guest
 
Posts: n/a
Default Thanks ..

Thank you .

1. Individual that is outside work size knew that recognize by Masterpage's Document Layer when create other page.

2. In Activedocument.Pages (1) Duplicate done Object Activedocument.Pages (2) . Knew that do Move by Activate and the page

Last edited by ljesus7; 12-02-2007 at 17:42.
Reply With Quote
Reply


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
Objects in Document akayani Code Critique 9 06-02-2006 08:15
How to duplicate an object along common center Alex FAQ 2 03-05-2005 15:46
Importing only 1st page from a multipage CDR mecanomaniaco CorelDRAW/Corel DESIGNER VBA 3 28-02-2005 18:21
Retrieve Color Values from Selected Object Jon Lorber CorelDRAW/Corel DESIGNER VBA 2 19-08-2004 08:24
Page selection and object moving problems wbochar CorelDRAW/Corel DESIGNER VBA 1 15-04-2003 10:10


All times are GMT -5. The time now is 04:25.


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