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" <(E-Mail Removed)> wrote in message
news:2FC71269-1EE5-4CBF-B79E-(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:2FC71269-1EE5-4CBF-B79E-(E-Mail Removed)...
> > 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
> >
> >
> >
>
>
>