BorderDiagonal Property

Microsoft Publisher Visual Basic

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