Excel) (Borders 物件
四個 Border 物件的集合,代表 Range 物件或 Style 物件的四個框線。
使用 Borders 屬性可傳回 Borders 集合,該集合包含所有的四個框線。 您可以將不同的框線套用到儲存格或範圍的每一邊。 如需如何將框線套用至儲存格範圍的詳細資訊,請參閱 Range.Borders 屬性。
只有使用 Range 及 Style 物件時,才能設定個別框線的框線內容。 其他框線物件,例如誤差線和數列線,其框線會被視為單一實體,而不論其有多少邊。 如果是這些物件,必須將整個框線當做一個單位傳回或設定屬性。 如需詳細資訊,請參閱 Border 物件。
下列範例會在第一張工作表上的 A1 儲存格中新增雙框線。
Worksheets(1).Range("A1").Borders.LineStyle = xlDouble
使用 Borders (索引) ,其中 index 可識別框線,以傳回單一 Border 物件。 Index 可以是下列其中一個 XlBordersIndex 常數: xlDiagonalDown、 xlDiagonalUp、 xlEdgeBottom、 xlEdgeLeft、 xlEdgeRight、 xlEdgeTop、 xlInsideHorizontal或 xlInsideVertical。
下列範例會將 A1:G1 儲存格的下框線設定為紅色。
Worksheets("Sheet1").Range("A1:G1"). _
Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
下列範例會在範圍內的所有儲存格周圍產生細框線。
Dim rng As Range: Set rng = ws.Range("B6", "D8")
With rng.Borders
.LineStyle = xlContinuous
.Weight = xlThin
End With
下列範例只會變更範圍的內部儲存格框線。
Dim rngInner As Range: Set rngInner = ws.Range("B2", "D4")
With rngInner.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rngInner.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。