Propriedade Cell.BorderDiagonal (Publisher)
Retorna um objeto CellBorder que representa a borda diagonal de uma célula de tabela especificada.
Sintaxe
expressão. BorderDiagonal
Expressão Uma variável que representa um objeto Cell .
Valor de retorno
CellBorder
Exemplo
Este exemplo divide diagonalmente células alternadas na tabela especificada e adiciona uma borda adicional. Este exemplo pressupõe que a primeira forma na página dois seja uma tabela e não outro tipo de forma.
Sub FillCellsByRow()
Dim shpTable As Shape
Dim rowTable As Row
Dim celTable As Cell
Dim intCell As Integer
intCell = 1
Set shpTable = ActiveDocument.Pages(2).Shapes(1)
For Each rowTable In shpTable.Table.Rows
For Each celTable In rowTable.Cells
If intCell Mod 2 = 0 Then
With celTable
.Diagonal = pbTableCellDiagonalDown
With .BorderDiagonal
.Weight = 1
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)
End With
End With
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
intCell = intCell + 1
Next celTable
Next rowTable
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.