Partager via

Propriété Label.FontSize (Access)

  • Article

Utilisez la propriété FontSize pour spécifier la taille de point du texte dans les situations suivantes :

  • Lors de l'affichage ou de l'impression de contrôles dans des formulaires et des états.
  • Lorsque vous utilisez la méthode Print dans un état.

Entier en lecture/écriture.

Syntaxe

expression. Fontsize

Expression Variable qui représente un objet Label .

Remarques

La propriété FontSize utilise les paramètres suivants.

Paramètre Description
8 (Par défaut pour tous les états et les contrôles à l'exception des boutons de commande) Le texte possède une taille de 8 points.
10 (Par défaut pour les boutons de commande) Le texte possède une taille de 10 points.
Autres tailles Le texte possède la taille sélectionnée.

Vous pouvez définir la valeur par défaut pour cette propriété à l’aide du style de contrôle par défaut d’un contrôle ou de la propriété DefaultControl dans Visual Basic.

Pour les États, vous pouvez définir cette propriété uniquement dans une procédure événementielle ou une macro spécifiée par le paramètre de propriété événementielle OnPrint.

Dans Visual Basic, vous définissez la propriété FontSize en utilisant une expression numérique d'égale à la taille de la police souhaitée. Le paramètre de la propriété FontSize peut être compris entre 1 et 127 inclus.

Exemple

L'exemple suivant utilise la méthode Print pour afficher du texte dans un état appelé Etat1. Il utilise les méthodes TextWidth et TextHeight Centre le texte verticalement et horizontalement.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.