Propriedade Cell.Row (Publisher)
Retorna um Long que representa o número da linha que contém a célula especificada. Somente leitura.
expressão. Linha
Expressão Uma variável que representa um objeto Cell .
Este exemplo insere o preenchimento em todas as linhas com número par e limpa o preenchimento de todas as linhas com número ímpar na tabela especificada. Este exemplo pressupõe que a forma especificada seja uma tabela e não outro tipo de forma.
Sub FillCellsByRow()
Dim shpTable As Shape
Dim rowTable As Row
Dim celTable As Cell
Set shpTable = ActiveDocument.Pages(1).Shapes _
.AddTable(NumRows:=5, NumColumns:=5, Left:=100, _
Top:=100, Width:=100, Height:=12)
For Each rowTable In shpTable.Table.Rows
For Each celTable In rowTable.Cells
If celTable.Row Mod 2 = 0 Then
celTable.Fill.ForeColor.RGB = RGB _
(Red:=180, Green:=180, Blue:=180)
Else
celTable.Fill.ForeColor.RGB = RGB _
(Red:=255, Green:=255, Blue:=255)
End If
Next celTable
Next rowTable
End Sub
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.