Compartilhar via

Propriedade Table.GrowToFitText (Publisher)

  • Artigo

True para células em uma tabela para aumentar verticalmente para ajustar o texto. Leitura/gravação.

Sintaxe

expressão. GrowToFitText

Expressão Uma variável que representa um objeto Table .

Valor de retorno

Booliano

Exemplo

Este exemplo define cada linha da tabela especificada como 12 pontos e a altura da linha não aumenta conforme o texto é adicionado às células nas colunas.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.