Cell.BorderRight-Eigenschaft (Publisher)

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

Syntax

Ausdruck verwendet werden. BorderRight

Ausdruck Eine Variable, die ein Cell-Objekt darstellt.

Rückgabewert

CellBorder

Beispiel

In diesem Beispiel wird ein Schachbrettdesign unter Verwendung von Rahmen und einer Füllfarbe mit einer vorhandenen Tabelle erstellt. Dabei wird angenommen, dass das erste Shape auf dem zweiten Bildschirm eine Tabelle und kein anderer Shape-Typ ist und dass die Tabelle eine ungerade Anzahl von Spalten aufweist.

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 
 With celTable 
 With .BorderBottom 
 .Weight = 2 
 .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) 
 End With 
 With .BorderTop 
 .Weight = 2 
 .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) 
 End With 
 With .BorderLeft 
 .Weight = 2 
 .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) 
 End With 
 With .BorderRight 
 .Weight = 2 
 .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) 
 End With 
 End With 
 If intCell 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 
 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.