Centralizar texto verticalmente no Access

Opa pessoal…

Beleza?!​ Não sei se já repararam, mas no MS Access não existe a opção de centralizar verticalmente um texto como existe no Excel, o texto sempre fica alinhado na parte superior fazendo com que elaborar um formulário bonito fique mais difícil.

Porém, abaixo deixo um código que irá facilitar a vida de vocês.Basta associar este código a uma macro e sempre que quiser alinhar verticalmente um texto em um controle é só selecionar e acionar a sua macro.

Function CentralizarControleVerticalmente()

   Dim ctr As control

   Dim altura As Double

   Dim tamFonte As Double

   Dim pixelEmCentimetro As Double

   Dim TwipEmCentimetro As Double

   Set ctr = Screen.ActiveControl

   pixelEmCentimetro = 0.02645833333333

   TwipEmCentimetro = 0.001763888888889

   tamFonte = ctr.FontSize * pixelEmCentimetro

   altura = ctr.Height

   ctr.TopMargin = ((((altura / 15) / 2) * pixelEmCentimetro) – tamFonte) / TwipEmCentimetro

End Function

Abraços!

Veja também

2017-06-25T18:46:04-03:00