
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
Comando Mesclar Células no Excel
Um comando muito simples e que costuma ser apresentado aos usuários desde suas primeiras experiências com o Excel, é o comando "Mesclar Células". À primeira vista, este comando parece bastante útil e atende com [...]
Separar banco de dados em Front End e Back End
Olá pessoal, A dica de hoje é de como criar uma ferramenta que contem o Front-End (Cliente) e Back-End (Dados). Para isso usaremos um recurso nativo do Access que é "Acessar Banco de [...]
AutoFiltro e Somente Células Visíveis
Para quem está acostumado a usar os filtros rápidos do Excel, a dica está na aplicação e retirada dos filtros. Como você faz isso? Clica no botão AutoFiltro? A tecla de atalho para [...]