Compartilhar via

Propriedade ToggleButton.FontSize (Access)

  • Artigo

Use a propriedade FontSize para especificar o tamanho do ponto para texto nas seguintes situações:

  • Ao exibir ou imprimir controles em formulários e relatórios.
  • Ao utilizar o método Print em um relatório.

número inteiro de leitura/gravação.

Sintaxe

expressão. Fontsize

Expressão Uma variável que representa um objeto ToggleButton .

Comentários

A propriedade FontSize utiliza as configurações a seguir.

Configuração Descrição
8 (Padrão para todos os relatórios e controles, exceto botões de comando) O texto é um tipo de 8 pontos.
10 (Padrão para botões de comando) O texto é um tipo de 10 pontos.
Outros tamanhos O texto é do tamanho indicado.

Você pode definir o padrão dessa propriedade usando o estilo de controle padrão de um controle ou a propriedade DefaultControl no Visual Basic.

Para relatórios, você pode definir essa propriedade somente em um procedimento de evento ou em uma macro especificada pela configuração da propriedade de evento OnPrint.

No Visual Basic, você pode definir a propriedade FontSize, usando uma expressão numérica é igual ao tamanho desejado da fonte. A configuração da propriedade FontSize pode estar entre 1 e 127, inclusive.

Exemplo

O exemplo a seguir usa o método Print para exibir texto em um relatório chamado Report1. Ele usa os métodos TextHeight e de TextWidth para centralizar o texto vertical e horizontalmente.

Private Sub Detail_Format(Cancel As Integer, _ 
 FormatCount As Integer) 
 Dim rpt as Report 
 Dim strMessage As String 
 Dim intHorSize As Integer, intVerSize As Integer 
 
 Set rpt = Me 
 strMessage = "DisplayMessage" 
 With rpt 
 'Set scale to pixels, and set FontName and 
 'FontSize properties. 
 .ScaleMode = 3 
 .FontName = "Courier" 
 .FontSize = 24 
 End With 
 ' Horizontal width. 
 intHorSize = Rpt.TextWidth(strMessage) 
 ' Vertical height. 
 intVerSize = Rpt.TextHeight(strMessage) 
 ' Calculate location of text to be displayed. 
 Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2) 
 Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2) 
 ' Print text on Report object. 
 Rpt.Print strMessage 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.