Full Version: Fit Text To Path/Macros
From: Jer (DIAMOND) [#1]
10 Jul 2006
To: ALL
EDITED: 1 Aug 2006 by DGL
From: Pedaler (ROYBREWER) [#2]
11 Jul 2006
To: Jer (DIAMOND) [#1] 12 Jul 2006
Are you sure you need text to path? Envelope would be much easier.
See attached for an idea.
If you really need text to path, then David's earlier explanation of using the shape tool to select each node and modify it's height.
EDITED: 5 Dec 2006 by ROYBREWER
From: Shaddy [#3]
11 Jul 2006
To: Jer (DIAMOND) [#1] 12 Jul 2006
How about changing the size of the font characters before fiting to path?
I made a macro in Corel. It works in 12 and X3, it's a GMS file that gets copied to C:\Program Files\Corel\CorelDRAW Graphics Suite 13\Draw\GMS
or close to it, depending on your version and install options.
Select the text object you want to change. Then run it as a Macro called TextSizer (Sizer12.gms). There's a begining font size and an Ending font size option. Then it divides it up equally depending on the amount of characters.
I just made it this evening, so there isn't as much error handling as there should be.
If you select multiple text objects, it will resize all of them. If you select a text object AND a curve, it will resize then fit to curve. If you select multiple text object and a curve, it will only fit the last text object, the others you do by hand. It's not a finished product, obviously, but some tweaking can meet your needs most likely.
I didn't protect the file, so it's viewable, Maybe it'll help generate interest in VBA. These are the kind of helper macros that can be created. Oh, and thanks to Carl for telling me about the Command Group function so hitting Undo afterwards will undo the whole thing instead of step by step (and running out of Undo's)
Shaddy
PS, putting a small number first will make the text increase in size, large number first decreases.
EDITED: 11 Jul 2006 by SHADDY
From: Pedaler (ROYBREWER) [#4]
12 Jul 2006
To: Shaddy [#3] 12 Jul 2006
Very nice! Thanks.
From: Jer (DIAMOND) [#5]
13 Jul 2006
To: Shaddy [#3] 13 Jul 2006
From: Carl (CSEWELL) [#6]
13 Jul 2006
To: Shaddy [#3] 13 Jul 2006
Excellent job on the macro!
The 'beauty' of VBA programming is demonstrated in your macro: it does one thing extremely well that would be very time consuming to do it manually. If you only have to do it once, than manually may be acceptable. With the visibility of the forum, I imagine that you've saved a lot of people a lot of time. Not necessarily today, but down the road. Hopefully, the macro will be easy to find (David?). You also gave them a feature they might not have been able to offer their customers, or something that might differentiate them from another engraver.
And the VBA macro doesn't have to be elegant or contain lots of (or any) error checking. Providing the source code will give those more adventurous types the opportunity to modify your macro, thereby creating something totally new.
Thanks!
From: PenMan [#7]
14 Jul 2006
To: Shaddy [#3] 14 Jul 2006
From: Swami [#8]
14 Jul 2006
To: ALL
From: Shaddy [#9]
14 Jul 2006
To: Swami [#8] 16 Jul 2006
The ones that have a GMS as the extension, you save it in
C:\Program Files\Corel\CorelDRAW Graphics Suite 13\Draw\GMS
Will be different for the other versions. I've never had a version before 12, so I'm unsure of others.
Then to run it, you click on TOOLS==VISUAL BASIC==PLAY then you select the macro to run
Use the pulldown next to "Macros in" to choose the proper GMS file or project. That will load all the runable macros to the box above it. Then select the macro and click RUN.
For this particualr macro... have the text boxes selected (and curve if you're going that far) before you run it... it uses your selection to know what to alter.
Shaddy
From: Swami [#10]
16 Jul 2006
To: ALL
I tried the Macro, That macro thing is so cool and EASY.
Are there any other Macros i can try out????????
From: Shaddy [#11]
16 Jul 2006
To: Swami [#10] 17 Jul 2006
http://www.oberonplace.com/vba/drawmacros/index.htm
But the text sizer thing only came to be when someone asked for it... so if you have something you're looking for, maybe post and ask for something specific. Not that I can do it, but there's always a chance.
Shaddy
From: Carl (CSEWELL) [#12]
16 Jul 2006
To: Swami [#10] 17 Jul 2006