GrowToFitText Property

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