Font.Grow-Methode (Publisher)

Erhöht den Schriftgrad auf den nächsten verfügbaren Grad.

Syntax

Ausdruck. Wachsen

Ausdruck Eine Variable, die ein Font-Objekt darstellt.

Hinweise

Wenn die Auswahl oder der Bereich mehr als einen Schriftgrad enthält, wird jeder Grad auf die nächste verfügbare Einstellung erhöht.

Beispiel

In diesem Beispiel wird der Schriftgrad des vierten Worts in einem neuen Textfeld erhöht.

Sub GrowFont() 
 Dim shpText As Shape 
 Dim intResponse As Integer 
 
 Set shpText = ActiveDocument.Pages(1).Shapes.AddTextbox( _ 
 Orientation:=pbTextOrientationHorizontal, Left:=100, _ 
 Top:=100, Width:=200, Height:=100) 
 
 With shpText.TextFrame.TextRange 
 .Text = "This is a test of the Grow method." 
 Do Until intResponse = vbNo 
 intResponse = MsgBox("Do you want to increase the " & _ 
 "size of the font?", vbYesNo) 
 If intResponse = vbYes Then 
 .Words(4).Font.Grow 
 End If 
 Loop 
 End With 
End Sub

In diesem Beispiel wird die Schrift des ausgewählten Texts vergrößert.

Sub IncreaseFontSizeOfSelectedText() 
 If Selection.Type = pbSelectionText Then 
 Selection.TextRange.Font.Grow 
 Else 
 MsgBox "You need to select some text." 
 End If 
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.