傳回代表指定表格儲存格右框線的 CellBorder 物件。
語法
運算式。BorderRight
運算式 代表 Cell 物件的變數。
傳回值
CellBorder
範例
此範例會使用框線和填滿色彩與現有表格來建立棋盤設計。 這假設第二頁的第一個圖形是表格，而不是另一種類型的圖形，而且表格的欄數不偶數。
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
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。