Straightening Text in CD12

[knowbodynow]

CorelDraw12 has align to baseline and straightentext. How would I write VBA to do this for every piece of artistic text on a page? I tried to record a macro but found that it said the function was not supported. Is it possible with VBA?

Thanks,

Chris (Hunt)

[wOxxOm]

Originally Posted by knowbodynow

CorelDraw12 has align to baseline and straightentext. How would I write VBA to do this for every piece of artistic text on a page? I tried to record a macro but found that it said the function was not supported. Is it possible with VBA?

You may use VBA command sendKeys to emulate keystrokes: Alt-T, S - it is text menu->straighten text:

sendKeys "%ts",true ' wait for command completion

Or you may customize "Straighten" menu item and assign it unique key combination (Ctrl-Alt-Shift-S for example) and call it "directly": sendkeys "^+%s"

Another fast way is to use .VertShift property of activeShape.Story:

activeShape.Story.vertShift=0

[knowbodynow]

That's great! I assigned alt-b for baseline and alt-s for straighten text and it worked. Now I just need to find out how to add txg to each piece of text before centring it.

Many thanks,

Chris