Hi,
In the corel designer there is a macro for renumbering callouts. However, it only works if the callout is executed with the incremental function.
I need a macro that reads the number from the selected callouts and counts each callout one number up or down without being incremental.
Could you help me?
Select the shapes in discussion, try this and tell me what happens:
1 2 3 4 5 6 7 8
Sub testIncrementTextNumbers() Dim shR As ShapeRange, shTxt As Shape, shRTxt As ShapeRange Set shR = ActiveSelectionRange Set shRTxt = shR.Shapes.FindShapes(, cdrTextShape) For Each shTxt In shRTxt.Shapes shTxt.Text.Story = CLng(shTxt.Text.Story) + 1 Next End Sub
Did you test my code?
If so simple, why don't you solve it?
Can you, al least, specify what kind of callout do you use? Callout shape from the shapes group near Poligon, Star, Complex star etc. or the 3-Point Callout from the dimensions group?
Perfect. Works perfect. Thanks for your great help.
Everything is fine. This comment was old. :D
So, does it work as you need, or only now you understood my point...?
What I wanted to emphasize was the fact that Corel does not keep any text on the callout itself. According to the callout type it keeps the tex in a text box (first type of callout I enumerated) you must build and a kind of embedded text box in case of 3-Point Callout.
That's why you must tell us a little more, in order to help you. To be able to help...