Cell.BorderDiagonal-Eigenschaft (Publisher)

Gibt ein CellBorder-Objekt zurück, das den diagonalen Rahmen für eine angegebene Tabellenzelle darstellt.

Syntax

Ausdruck. BorderDiagonal

Ausdruck Eine Variable, die ein Cell-Objekt darstellt.

Rückgabewert

CellBorder

Beispiel

Bei diesem Beispiel werden alle anderen Zellen in der angegebenen Tabelle diagonal geteilt und mit einem diagonalen Rahmen versehen. In diesem Beispiel wird davon ausgegangen, dass die erste Form auf Seite 2 eine Tabelle und kein anderer Formtyp ist.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.