Método Cells.SetWidth (Word)

  • Artigo

Define a largura das colunas ou células de uma tabela.

Sintaxe

expression. SetWidth( _ColumnWidth_ , _RulerStyle_ )

expressão Obrigatório. Uma variável que representa uma coleção 'Cells'.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
ColumnWidth Obrigatório Single A largura da coluna ou colunas especificadas, em pontos.
RulerStyle Obrigatório WdRulerStyle Controla como o Word ajusta larguras de células.

Comentários

O comportamento de WdRulerStyle descrito acima se aplica a tabelas alinhado à esquerda. O comportamento de WdRulerStyle para tabelas centralizado e direita pode ser inesperado; Nesses casos, o método SetWidth deve ser usado com cuidado.

Exemplo

Este exemplo cria uma tabela em um novo documento e define a largura da primeira célula da segunda linha como 1,5 polegada (3,81 centímetros). O exemplo preserva as larguras das outras células da tabela.

Set newDoc = Documents.Add 
Set myTable = _ 
 newDoc.Tables.Add(Range:=Selection.Range, NumRows:=3, _ 
 NumColumns:=3) 
myTable.Cell(2,1).SetWidth _ 
 ColumnWidth:=InchesToPoints(1.5), _ 
 RulerStyle:=wdAdjustNone

Este exemplo define como 36 pontos a largura da célula que contém o ponto de inserção. O exemplo também estreita a primeira coluna para preservar a posição da extremidade direita da tabela.

If Selection.Information(wdWithInTable) = True Then 
 Selection.Cells(1).SetWidth ColumnWidth:=36, _ 
 RulerStyle:=wdAdjustFirstColumn 
Else 
 MsgBox "The insertion point is not in a table." 
End If

Confira também

Objeto da coleção Cells

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.