Redimensionar textbox multiline al escribir

[Benito Bartolomé]

Buenos días a todos;
-Os voy a insertar un enlace de mi requerimiento donde os explico un poco lo que quiero conseguir si es posible.
Enlace video:

Video textBox

En la macro tengo un textbox con la propiedad multiline en true.
Al ir escribiendo una vez que llegue a un número de caracteres hace como un salto de línea y empieza e escribir debajo para eso lo que hago es ir aumentando el alto del textbox y Frame.
Mi idea es que una vez que yo haga clic en el textbox este aumente el tamaño del alto si no coge en la línea hasta hacerlo coger todo y al hacer doble clic que recupere su tamaño inicial.
La simulación la he hecho solo aumentando el alto y no sé si se puede también con el largo.
Espero que entre lo escrito aquí y el video se pueda entender la idea.

Saludos y buen día a todos.

MAutoajustar.xlsm

[Benito Bartolomé]

Hola a todos;

Creo haber resuelto el misterio, o por lo menos ahora hace lo que pretendía. 

He cambiado todo el código por uno más  sencillito.

He eliminado también el frame ya que no es necesario al haber puesto en el evento change del texBox1:

Me.TextBox1.ZOrder

Con lo cual ya no queda oculto el textBox.

A ver que os parece:

Private Sub TextBox1_Change()
If Len(Me.TextBox1) < 25 Then
    Me.TextBox1.MultiLine = False
    Me.TextBox1.AutoSize = True
    Me.TextBox1.ZOrder
Else
    Me.TextBox1.MultiLine = True
    Me.TextBox1.ZOrder
Exit Sub
End If
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Height = 20
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) '<------He añadido esto
Me.TextBox1.MultiLine = False
Me.TextBox1.AutoSize = False
Me.TextBox1.Width = 96
End Sub


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then 'tecla Enter
TextBox2.SetFocus
Me.TextBox1.Height = 20
Exit Sub
End If
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1.MultiLine = False
End Sub

He añadido el evento Exit del al textBox1 y también he cambiado el evento Change.
Saludos y buen finde.