VBA text alignment in text box

[Kra]

Hi all,

How to set alignment for part of the text in textbox to the left? This is part of code I am using (tb6 is textbox name). I need part of text after Chr(13) to be alligned to the left (so

"This field displays the current mode and status the machine"

should be centered, but

                                                & Chr(13) & Chr(13) & "Mode:" & "                                                  " _
                                                & "Status:"

should be aligned to the left.

        If s.EN.Value = True Then
                With tb6.TextFrame
                    .Characters.Text = "This field displays the current mode and status the machine" _
                                                & Chr(13) & Chr(13) & "Mode:" & "                                                  " _
                                                & "Status:"
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlTop
                End With

 

[HongRu]

How about to add some spaces before the first sentence, and all aligned to the left ?

If s.EN.Value = True Then
                With tb6.TextFrame
                    .Characters.Text = "                      This field displays the current mode and status the machine" _
                                                & Chr(13) & Chr(13) & "Mode:" & "                                                  " _
                                                & "Status:"
                    .HorizontalAlignment = xlHAlignLeft
                    .VerticalAlignment = xlTop
                End With

 

[HongRu]

Try this.
HTH.

If s.EN.Value = True Then
        With tb6.TextFrame
            .Characters.Text = "This field displays the current mode and status the machine" _
                                        & Chr(13) & Chr(13) & "Mode:" & "                                                  " _
                                        & "Status:"
            .VerticalAlignment = xlTop
        End With
        tb6.TextFrame2.TextRange.Paragraphs(1).ParagraphFormat.Alignment = msoAlignCenter
        tb6.TextFrame2.TextRange.Paragraphs(3).ParagraphFormat.Alignment = msoAlignLeft

 

[Kra]

Try this.
HTH.

If s.EN.Value = True Then
        With tb6.TextFrame
            .Characters.Text = "This field displays the current mode and status the machine" _
                                        & Chr(13) & Chr(13) & "Mode:" & "                                                  " _
                                        & "Status:"
            .VerticalAlignment = xlTop
        End With
        tb6.TextFrame2.TextRange.Paragraphs(1).ParagraphFormat.Alignment = msoAlignCenter
        tb6.TextFrame2.TextRange.Paragraphs(3).ParagraphFormat.Alignment = msoAlignLeft

This one somehow doesn't work for me. Default alignment of textbox is in the center and it displays paragraph(3) in center as well. But the solution with spaces is simple and works for me, so thank you!