Freigeben über

TextRange.MajorityFont-Eigenschaft (Publisher)

  • Artikel

Gibt ein Font -Objekt zurück, das den Namen der in einem Textbereich am häufigsten verwendeten Schriftart darstellt.

Syntax

Ausdruck. MajorityFont

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Rückgabewert

Schriftart

Beispiel

In diesem Beispiel wird ein neues Textfeld erstellt, dieses mit Text gefüllt und überprüft, ob es sich bei der am häufigsten verwendeten Schriftart um Tahoma handelt. Ist dies nicht der Fall, wird die Schriftart in Tahoma geändert.

Sub SetFontName() 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes _ 
 .AddTextbox(Orientation:=pbTextOrientationHorizontal, _ 
 Left:=100, Top:=100, Width:=100, Height:=100) _ 
 .TextFrame.TextRange 
 For intCount = 1 To 10 
 .InsertAfter NewText:="This is a test. " 
 Next intCount 
 If .MajorityFont <> "Tahoma" Then _ 
 .Font.Name = "Tahoma" 
 End With 
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.