object that represents the diagonal border for a specified table cell.
expression.BorderDiagonal
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example diagonally splits every other cell in the specified table and adds a diagonal border. This example assumes the first shape on page two is a table and not another type of shape.
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