Table.GrowToFitText 属性 (Publisher)

为 表中的单元格的垂直方向上增大以适应文字。 读/写。

语法

表达式。GrowToFitText

表达 一个代表 Table 对象的变量。

返回值

布尔值

示例

本示例将指定表格的每行设置为 12 磅，并且在将文字添加到该行中的单元格时，行高不会增加。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。