EXCELer

Por vezes, podemos ter a necessidade e utilizar, num Userform, um TextBox com comprimento fixo e com Multiline e WordWrap. Vejamos o exemplo:



Quando se inicia a escrita, a altura do TextBox aumenta automaticamente até à altura previamente definida:



Grava para a célula A1:



Para invocar o Userform que contem o TextBox, criamos um CommandButton na grelha:



O Código para o Comando:

Private Sub CommandButton1_Click()
    FrmTeste.Show
End Sub

Os códigos em VBA:



Private Sub TextBox1_Change()

    TextBox1.Width = 150
    TextBox1.MultiLine = True
    TextBox1.WordWrap = True
    TextBox1.AutoSize = False

    With Me.TextBox1
        .Height = 80
    End With

End Sub




Private Sub CommandButton1_Click()
    Range("A1") = TextBox1.Value
End Sub