Text-Alignment in VBA

[jweiss]

Hi,
knows someone how to align text of variable length to the bottom of a textbox?

In designmode this is possible by "formating textfield/textfield/adjustment
(top, middle, Bottom). But I cant find the tight property to do this within my
code

Set FrmName = ThisDocument.Pages(PgCount).Shapes.AddTextbox _
(Orig, LeftX, TopY, WidthX, HightY)

With FrmName.TextFrame.TextRange
.ParagraphFormat.TextStyle = RTrim(MyFrame(N).FrmParFormat)
.Text = Fill
. ? ? ? ?
End With

Thank you for your assistance in advance.

Joachim

[Ed Bennett]

Post by jweiss
In designmode this is possible by "formating
textfield/textfield/adjustment (top, middle, Bottom). But I cant find
the tight property to do this within my code

You want .TextFrame.VerticalTextAlignment.

[jweiss]

It works fine. Thank you very much!
Regards
Joachim

Post by Ed Bennett

Post by jweiss
In designmode this is possible by "formating
textfield/textfield/adjustment (top, middle, Bottom). But I cant find
the tight property to do this within my code

You want .TextFrame.VerticalTextAlignment.
--
Ed Bennett - MVP Microsoft Publisher