[Resolvido]Alinhar texto na vertical

Pessoal,

a dúvida é no Access 97. Como centralizar um texto na vertical para que fique no centro exato da caixa de texto? Pois na barra de ferramentas tem para centralizar somente na horizontal.
Existe algum recurso?

Obrigado.

Olá luciano,

Você já tentou alinhar pela tabela?SeuCampo=>Geral=>Alinhamento do Texto?

Para dispor na vertical, descobri este código na internet:

Private Sub SuaCaixadeTexto_DblClick(Cancel As Integer) 'Coloque uma caixa de texto chamada vText no form.
'==============================
' copy and paste this code
' created by hafaba in accessforums.net
' Permission given to use and to change this code
' provided my name remain unchanged
'==============================
Dim NumberofLine As Integer
Dim TextboxWidth As Single
Dim TextboxHeight As Single
Dim LengthOfText As Integer

Const FONTSIZEPERPIXEL = 100

'MsgBox Me.vText.Width
'MsgBox Me.vText.Height
'MsgBox Len(Me.myText)

LengthOfText = Len(Me.SuaCaixadeTexto)
TextboxWidth = Me.vText.Width
TextboxHeight = Me.vText.Height


NumberofLine = Int(LengthOfText * FONTSIZEPERPIXEL / TextboxWidth)
Me.SuaCaixadeTexto.Vertical = (Me.vText.Height - (FONTSIZEPERPIXEL * NumberofLine)) / 2

'MsgBox NumberofLine

Me.vText = Me.SuaCaixadeTexto 'Deixe a caixa de texto vText com sua propriedade visible = false

End Sub

good guy,

obrigado pelo retorno. Mas não consegui fazer o seu código funcionar. tem como você me enviar um bd com o exemplo?

obrigado.

Veja este exemplo do Lebans;

http://www.lebans.com/rotatetext.htm

Bom dia João,

Também vi este exemplo, mas fiquei em dúvida se o que o Luciano queria era dispor o texto na vertical ou centralizá-lo verticalmente como é o caso do exemplo do Stephen Lebans. Meu exemplo:

Caros JP e Good Guy, boa noite!

poderiam postar os links com os exemplos?

A respeito do questionamento feito pelo Good Guy o alinhamento é por centralizar o texto verticalmente. não é escrever a palavra na vertical. OK?

obrigado pessoal. aguardo retorno.

Luciano

Para alinhar o Texto Verticalmente dentro de uma caixa de texto no Access 97

basta abrir as propriedades do campo
Guia: Formato
Margem Superior = 0