Align text in a text box
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Text Box 1")
shp.TextFrame.HorizontalAlignment = xlJustify
Regards,
Peter T
"Ana" wrote in message
...
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
|