
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
Como ler arquivos de PDF para TXT usando Power Automate Desktop
Quer saber como ler seus arquivos de PDF para TXT utilizando apenas o Power Automate Desktop? Então continue a leitura e descubra como é simples! Realizar este processo é muito fácil, mas é preciso [...]
Design Thinking: 4 dicas para começar a aplicar
O Design Thinking não é algo exatamente novo, pois objetos são projetados há muito tempo. No entanto, a ação de voltar o olhar para o pensamento que existe por trás dessas criações e sua [...]
Armazenamento em nuvem: seus três tipos e quando usar cada um deles
Não é mais novidade para ninguém que o armazenamento em nuvem é uma realidade tanto no mundo da tecnologia quanto no mundo dos negócios em geral. Recentemente, inclusive, explicamos aqui em nosso blog o que [...]