We need to write VBA code that will select and slightly move the node of one character in a CorelDraw X7 heading text inscription via the Shape Tool (Note: not the same as "RangeKerning" or "Move"). Any suggestions?
Thank you for the picture, that makes it much easier to understand. You will need to use the VertShift and HorizShift. One note about these values is that they are in %.
You can see the value on the properties bar:
Here are a few code examples:
Sub MoveCharacter() 'Move the first character using a Range ActiveShape.Text.Story.Range(0, 1).VertShift = 50 ActiveShape.Text.Story.Range(0, 1).HorizShift = -22 'Move the second character ActiveShape.Text.Story.Characters(2).VertShift = -50 ActiveShape.Text.Story.Characters(2).HorizShift = -22 'Change the angle of the third character ActiveShape.Text.Story.Characters(3).CharAngle = 25 'Verticle shift the entire second word ActiveShape.Text.Story.Words(2).VertShift = 25 End Sub
And here is what the before and after would look like:
Hope that helps,
-Shelby