Table of contents
Collapse the table of content
Expand the table of content

Font.Grow Method (Publisher)

office 365 dev account|Last Updated: 8/24/2017
3 Contributors

Increases the font size to the next available size.


expression. Grow

_expression_A variable that represents a Font object.


If the selection or range contains more than one font size, each size is increased to the next available setting.


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 
 End If 
 End With 
End Sub

This example increases the font size of the selected text.

Sub IncreaseFontSizeOfSelectedText() 
 If Selection.Type = pbSelectionText Then 
 MsgBox "You need to select some text." 
 End If 
End Sub
© 2018 Microsoft