Método Cells.SetWidth (Word)
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
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.