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
Lixo Eletrônico: Veja como dar o destino correto ao seu
Com a evolução dos aparelhos eletrônicos, muitas tarefas do dia-a-dia se tornaram mais fáceis. Por exemplo, hoje em dia é muito mais fácil se conectar com alguém do outro lado da cidade, país ou até [...]
Como ser notado pelos recrutadores através do Pacote Office
Não é novidade para ninguém que o mercado de trabalho é bastante competitivo. Cada vez mais as empresas esperam do profissional diversas habilidades, e quem não estiver disposto a adquiri-las, vai acabar passando despercebido [...]
Crie um gráfico rapidamente através de tecla de atalho
As teclas de atalho otimizam seu trabalho e proporcionam ganho de tempo no Excel Principais teclas de atalho Conhecer teclas de atalho não é obrigatório, mas é algo que com o tempo de [...]