Share via

GrowToFitText Property [Publisher 2003 VBA Language Reference]

  • Article

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

expression.GrowToFitText

expression Required. An expression that returns one of the objects in the Applies To list.

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

Applies to | Table Object