Hi all.
I have to do a lot of repetitive actions, so any optimization and time saving is always a big help. And one of the thing I need to do is to label the lines in my drawing.So, with the lines in place, I add the text aligned with the center of the line in question like soThe problem with this is that the text STARTS writing from the center, instead of being centered in this point, and the result is as follows:and not like I planned:So now I have to manually take each one of the (many) labels and re-center them one by one with the lines..What I think I need help with is at setting the text to keep its center as I write it, but any tips are most welcome.
Cheers,Quemil.
With your text cursor selected F8 (don't click on the page) select Centre Justification as shown in the Screen Cap, you will then asked to Change Document Defaults, Select what you need click OK.
Now go to Tools and Save Settings as Default.
Hope this helps.
Are you using Artistic Text or Paragraph text?
You say "Text Box" have you got Centre Justification on for Paragraph Text?
Make multi selection (hold Shift key when click on objects) – 1. select text and 2. select path and run macro below
Text is placed on path and centered and the horizontal line added and everything grouped
You can adjust each member group – select it by CTRL+click and change properties
Sub MyFit() Dim myText As Shape, Path As Shape, sr As ShapeRange, x#, y#, w#, h# ActiveDocument.BeginCommandGroup ("myfit") Set sr = ActiveSelectionRange Set myText = sr(2) Set Path = sr(1) sr(1).GetBoundingBox x, y, w, h myText.Text.FitToPath Path myText.Effects(1).TextOnPath.Placement = cdrCenterPlacement myText.Effects(1).TextOnPath.DistanceFromPath = sr(1).Outline.Width + 0.01 ActiveLayer.CreateLineSegment x + w, y + h, x + w + 2, y + h ActiveSelection.Outline.CopyAssign sr(1).Outline myText.AddToSelection ActiveSelection.Group ActiveDocument.EndCommandGroupEnd Sub