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
Visualizar soma e outros totais na barra de status do Excel
Uma das facilidades mais usadas do Excel é a seleção de algumas células da planilha e a visualização instantânea da soma destes valores na barra de status. Você sabia que você pode visualizar [...]
Usando a àrea de transferência do windows através do VBA
Dentre os recursos disponíveis no VBA, podemos encontrar uma biblioteca chamada DataObjects. Trata-se de um conjunto de objetos que podem ser usados para manipular a Área de Transferência do [...]
Inserir função soma rapidamente
Uma das necessidades mais frequentes do Excel é a inclusão da função =SOMA() em alguma parte da sua planilha. Como você inclui essa funcão? Digitando letra por letra: =S-O-M-A-( Não faça mais isso! [...]