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 09-12-2010, 16:57
ajesion
Guest
 
Posts: n/a
Default Macro for individually scaling objects

Hello
Below are screenshot and macro, which allows scaling individually for each object in the selected area of the page. Macro codes are written in VBA CorelDrawX4.
Objects selection can be scaled proportionally or disproportionately, according to the selected position of each object.
You can perform scaling all selected objects or text that occurs only in the selection or scale objects, with the exception of the text.
Press the "BACK" button allows you to back to the original state, leaving all of the objects in the selection, which you can perform a re-election scaling options, and then execute the macro.
The macro is available in ENG and PL version.
I apologize for any incorrect grammar in translation of ENG version.
Macro codes are available, so you can make your corrections.
Request to persons who will have the time and patience to make possible improvements to the code to add the macro code with the changes to this post.
At the same time, I'd like to thank the creators of this Forum and in particular To Alex and Senior Members: Runflacruiser, Shelbym and others who are providing their macros and sharing their knowledge with me, I think that allow me and many others members, to become acquainted with the possibilities of the VBA as well as teach how to create macros yourself. I recognized and appreciated the macro through the Forum in this year, so thank you once again and send words of appreciation.
Andrzej Jesionowski
Attached Images
 
Attached Files
File Type: zip ENG_XYobjects.zip (21.1 KB, 438 views)
File Type: zip PL_XYobiektu.zip (23.2 KB, 390 views)

Last edited by ajesion; 10-12-2010 at 02:07.
Reply With Quote
  #2  
Old 09-12-2010, 17:16
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Very Nice!.
Here's another idea for your form.

It adds the ability to scale each item separately as well as scale the whole selection as one piece.

I only modified the form and didn't mess with the code part.

-John
Attached Files
File Type: gms XYobjects.gms (47.0 KB, 420 views)
Reply With Quote
  #3  
Old 09-12-2010, 17:17
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Here's a pic of the form idea.
-John
Attached Images
 
Reply With Quote
  #4  
Old 11-12-2010, 08:23
ajesion
Guest
 
Posts: n/a
Default

Hello John,
Thank you for your suggestions.
The purpose of clarification: do you mean by adding all the scaling options such as CorelDraw already offers, and if not whether we add additional “click” choice, if you can rescale your selection by clicking already existing button.
AJ
Reply With Quote
  #5  
Old 11-12-2010, 10:27
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Quote:
Originally Posted by ajesion View Post
Hello John,
Thank you for your suggestions.
The purpose of clarification: do you mean by adding all the scaling options such as CorelDraw already offers
AJ
Hi.
No. I was thinking that if a user selected multiple objects and wanted to scale them down as one object without having to group them.

Maybe this could be default and have a checkbox that enables macro to scale each item selected (as you have default) instead of the selection as a whole.

-John
Reply With Quote
  #6  
Old 12-12-2010, 08:28
ajesion
Guest
 
Posts: n/a
Default

Hello,
Below is macro with the changes suggested by John and with little extra options.
So, choice of options and "Scale It" individually each object in the selection.
AJ
Attached Images
 
Attached Files
File Type: zip ENG_XYobjects.zip (46.6 KB, 428 views)
File Type: zip PL_XYobiektu.zip (31.0 KB, 367 views)
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
Exporting all items individually from 1 page fungel General 1 05-07-2009 11:46
scaling objects and alignment eldwin CorelDRAW/Corel DESIGNER VBA 4 01-03-2008 09:53
Scaling Script JSC Macros/Add-ons 0 19-04-2006 16:39
scaling objects bbolte CorelDRAW/Corel DESIGNER VBA 4 16-01-2003 10:47


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


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