Edit

Share via

Table.GrowToFitText property (Publisher)

  • Article

True for cells in a table to increase vertically to fit text. Read/write.

Syntax

expression.GrowToFitText

expression A variable that represents a Table object.

Return value

Boolean

Example

This example sets each row of the specified table to 12 points, and the row height doesn't increase as text is added to the cells in the rows.

Sub DontEnlargeTableCells() 
 Dim rowTable As Row 
 With ActiveDocument.Pages(1).Shapes(1).Table 
 .GrowToFitText = False 
 For Each rowTable In .Rows 
 rowTable.Height = 12 
 Next 
 End With 
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.