Propriedade Selection.TableCellRange (Publisher)

Devolve um objeto CellRange que representa as células numa seleção de tabela.

Sintaxe

expressão. TableCellRange

expressão Uma variável que representa um objeto De seleção .

Valor de retorno

CellRange

Exemplo

Este exemplo preenche as células da tabela em uma seleção.

Sub FillTableCellRange() 
 Dim intCount As Integer 
 With Selection 
 If .Type = pbSelectionTableCells Then 
 With .TableCellRange 
 For intCount = 1 To .Count 
 .Item(intCount).Fill.ForeColor.RGB = RGB _ 
 (Red:=0, Green:=255, Blue:=255) 
 Next intCount 
 End With 
 End If 
 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.