textbox auto size

[charly1]

Hi all

I'm sure my question has been asked and has a simple soution although i cannot seem to find one. Any help would be appreciated.

I have a textbox control in a user form with a set width of 188. I have set the multiline property to true.

I would like the textbox textbox width to remain fixed regardless of whether or how much text is entered by a user, however the textbox should auto size its height to accommodate text once a line is filled.

As an aside and if the above is possible would it then be possible to give the textbox a max height up to which it can auto size.

Thanks in advance!

 

[jkpieterse]

Perhaps with code similar to this:

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    With TextBox1
        .AutoSize = True
        .AutoSize = False
        .Width = 144
        If .Height > 100 Then .Height = 100
    End With
End Sub

 

[charly1]

Splendid. Thanks so much.

Would you mind explaining though how this code actually works. I've been looking at it and can't for the life of me make sense of it. [Although it works perfectly].

 

[jkpieterse]

Well, it was a bit of trial and error to be honest . I found that this sequence of steps gave most reliable results.