Align text in a text box

A

Ana

Hi;

I have a text box and I want to justified the text using a macro I have the
following code :


ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = ""
With Selection.Font
..Name = "Calibri"
..FontStyle = "Regular"
..Size = 9

End With

and it works but I do not know how to justified the text
Anybody knows??

thank you
 
P

Peter T

Dim shp As Shape
Set shp = ActiveSheet.Shapes("Text Box 1")
shp.TextFrame.HorizontalAlignment = xlJustify

Regards,
Peter T
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

No text box in word 2016 0
Clearing combo boxes and a text box 2
Word OLE to check spelling in text box 1
Link a text box based on drop down box with four options MS Word 365 0
Display cell contents in a text box (shape) and linking 2
Select Text to End of Footnote 9
MS Word normal.dot cannot be fixed 'text box' appears each time 4
How to add text box with macro attached 1

Top