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

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

Thank you a lot

"Peter T" wrote:

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