Font.Grow method (Publisher)
Increases the font size to the next available size.
Syntax
expression.Grow
expression A variable that represents a Font object.
Remarks
If the selection or range contains more than one font size, each size is increased to the next available setting.
Example
This example increases the font size of the fourth word in a new textbox.
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
This example increases the font size of the selected text.
Sub IncreaseFontSizeOfSelectedText()
If Selection.Type = pbSelectionText Then
Selection.TextRange.Font.Grow
Else
MsgBox "You need to select some text."
End If
End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.