Centralizar na Vertical

Olá pessoal


centralizar o conteúdo de um campo na horizontal é fácil, existindo até um botão no menu para isso

mas como fazer para centralizar na vertical?

até existe um truque que é usar o espaçamento da margem superior, o que fará o texto "descer' até a posição central (entretanto, se o conteúdo da caixa de texto tiver duas ou mais linhas, ficará tudo 'empilhado' na metade de baixo do campo, e não centralizado propriamente...)

pessoal, agradeceria qualquer dica de como começar a resolver esse problema: centralizar na vertical o conteúdo de uma caixa de texto


Beto

Uma possível forma:

Código:

Option Compare Database
Option Explicit
Dim T As Double

Private Sub NomeBotão_Click()

Me.NomeCampo.SetFocus
Me.NomeCampo.SelStart = 0
SendKeys "{END}"
T = 1
TimerInterval = 1

End Sub

Private Sub Form_Timer()

    If Me.NomeCampo.SelStart < Len(Me.NomeCampo) Then
        SendKeys "{DOWN}"
        SendKeys "{END}"
        T = T + 1
    Else
        Me.NomeCampo.TopMargin = (Me.NomeCampo.Height / 2) - T * 130
        Me.Comando3.SetFocus
        TimerInterval = 0
    End If
   
End Sub

No caso acima, seria um formulário com um botão e um campo e o código VBA completo desse formulário. Veja se consegue adaptar. Talvez tenha que mudar o 130 para outro valor, dependendo o tamanho e tipo da letra.