Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Verwenden Sie die FontSize-Eigenschaft , um die Punktgröße für Text in den folgenden Situationen anzugeben:
- Beim Anzeigen oder Drucken von Steuerelementen für Formulare und Berichte.
- Bei Verwendung der Print-Methode für einen Bericht.
Ganze Zahl mit Lese-/Schreibzugriff.
Syntax
Ausdruck. FontSize
Ausdruck Eine Variable, die ein TextBox-Objekt darstellt.
Hinweise
Die FontSize-Eigenschaft verwendet die folgenden Einstellungen.
| Einstellung | Beschreibung |
|---|---|
| 8 | (Standardeinstellung für alle Berichte und Steuerelemente außer Befehlsschaltflächen) Der Text wird in Schriftgrad 8 Punkt erstellt. |
| 10 | (Standardeinstellung für Befehlsschaltflächen) Der Text wird in Schriftgrad 10 Punkt erstellt. |
| Sonstige Schriftgrade | Der Text wird im angezeigten Schriftgrad erstellt. |
Sie können die Standardeinstellung für diese Eigenschaft festlegen, indem Sie das Standardsteuerelementformat eines Steuerelements oder die DefaultControl-Eigenschaft in Visual Basic verwenden.
Für Berichte können Sie diese Eigenschaft nur in einer Ereignisprozedur oder in einem Makro festlegen, das durch die Einstellung der OnPrint-Ereigniseigenschaft angegeben wird.
In Visual Basic legen Sie die FontSize-Eigenschaft mithilfe eines numerischen Ausdrucks fest, der dem gewünschten Schriftgrad entspricht. Die zulässigen Werte für die FontSize-Eigenschaft können zwischen 1 und 127 einschließlich liegen.
Beispiel
Im folgenden Beispiel wird die Print-Methode verwendet, um Text in einem Bericht namens "Report1" anzuzeigen. Mit den Methoden TextWidth und TextHeight wird der Text vertikal und horizontal zentriert.
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
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.