Font-Objekt (Publisher)
Enthält Schriftattribute (Name der Schriftart, Schriftgrad, Farbe usw.) für ein Objekt.
Verwenden Sie die TextStyle.Font-Eigenschaft , um das Font-Objekt zurückzugeben.
Der folgenden Anweisung wird die Auswahl fett formatiert.
Sub BoldText()
Selection.TextRange.Font.Bold = True
End Sub
Das folgende Beispiel formatiert den ersten Absatz in der aktiven Publikation mit Arial, 24 pt, kursiv.
Sub FormatText()
Dim txtRange As TextRange
Set txtRange = ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange
With txtRange.Font
.Bold = True
.Name = "Arial"
.Size = 24
End With
End Sub
The following example changes the formatting of the Heading 2 style in the active publication to Arial and bold.
Sub FormatStyle()
With ActiveDocument.TextStyles("Normal").Font
.Name = "Tahoma"
.Italic = True
.Size = 15
End With
End Sub
Sie können ein Font-Objekt auch mit der TextRange.Duplicate-Eigenschaft duplizieren. Im folgenden Beispiel wird eine neue Zeichenformatvorlage mit der Zeichenformatierung aus der Auswahl sowie Kursivformatierung erstellt. Die Formatierung der Auswahl wird nicht geändert.
Sub DuplicateFont()
Dim fntNew As Font
Set fntNew = Selection.TextRange.Font.Duplicate
fntNew.Italic = True
ActiveDocument.TextStyles.Add(StyleName:="Italics").Font = fntNew
End Sub
- AllCaps
- Application
- AttachedToText
- AutomaticPairKerningThreshold
- Bold
- BoldBi
- ContextualAlternates
- DiacriticColor
- ExpandUsingKashida
- Fill
- Glow
- Italic
- ItalicBi
- Kerning
- Ligatur
- Line
- Name
- NumberStyle
- Parent
- Position
- Reflection
- Skalierung
- Size
- SizeBi
- SmallCaps
- StrikeThrough
- StylisticAlternates
- StylisticSets
- SubScript
- SuperScript
- Swash
- TextShadow
- ThreeD
- Nachverfolgen
- TrackingPreset
- Underline
- UseDiacriticColor
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.