About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2006-03-04
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