
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
5 soft skills que todo profissional de TI precisa
As habilidades técnicas são fundamentais para que o profissional, seja lá qual for sua área de atuação, se torne bem sucedido. No entanto, nos dias atuais, elas não são mais suficientes. Além do conhecimento teórico, [...]
Entendendo o armazenamento em nuvem
De acordo com uma pesquisa do Grupo Sys, cerca de 85% das empresas de tecnologia estão utilizando algum tipo de serviço em nuvem para armazenar seus dados. É um número bastante expressivo, não? Mas você [...]
Excel e Power BI: como unir as duas ferramentas e usá-las a seu favor
Como já abordamos aqui em outros momentos, com o passar do tempo, o uso de dados se tornou indispensável para qualquer empresa, seja lá qual for o seu ramo no mercado. É fundamental conseguir mensurar, [...]