共用方式為


Border 物件 (Excel)

代表物件的框線。

註解

除了 RangeStyle 物件之外,大部分的框線物件 (所有物件) 具有被視為單一實體的框線,而不論其有多少側邊。 必須以單位傳回的整個花邊。

使用 Border 屬性,例如 TrendLine 物件,傳回此類物件的 Border 物件。

請注意, Border 物件的視覺屬性是互鎖的;也就是說,變更某個屬性可能會在另一個屬性中引發變更。 在大部分情況下,所引發的變更會讓框線 (可見,而) 不一定需要。 不過,其他 (可能會產生更非預期的) 結果。

以下是與非預期結果相互鎖定的範例。 在此範例中,將框線的 Weight 屬性設定為 xlThick 會引發 LineStyle 屬性成為 xlSolid,儘管先前已將它設定為 xlDashDotDot。

   Sub InterlockingExample()
       Dim SomeRange As Range
       Dim SomeBorder As Border
       
       Set MyRange = Selection
       Set SomeBorder = MyRange.Borders(xlDiagonalDown)
       SomeBorder.Color = RGB(255, 0, 0)
       Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle   'SomeBorder.LineStyle = 1
       Debug.Print "Set SomeBorder.LineStyle = xlDashDotDot"          'Set SomeBorder.LineStyle = xlDashDotDot
       SomeBorder.LineStyle = xlDashDotDot
       Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle   'SomeBorder.LineStyle = 5
       Debug.Print "Set SomeBorder.Weight = xlThick"                  'Set SomeBorder.Weight = xlThick
       SomeBorder.Weight = xlThick
       Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle   'SomeBorder.LineStyle = 1
   End Sub

範例

下列範例會變更現用圖表上趨勢線的類型及線條樣式。

With ActiveChart.SeriesCollection(1).Trendlines(1) 
 .Type = xlLinear 
 .Border.LineStyle = xlDash 
End With

RangeStyle 物件有四個離散框線,左、右、上、下,可以個別傳回或以群組傳回。 使用 Borders 屬性可以傳回 Borders 集合,該集合包含所有的四個框線,並且將這些框線視為一體。 下列範例會在第一張工作表上的 A1 儲存格中新增雙框線。

Worksheets(1).Range("A1").Borders.LineStyle = xlDouble

使用 Borders (索引) ,其中 index 可識別框線,以傳回單一 Border 物件。 下列範例會設定 A1:G1 儲存格下框線的色彩。

Worksheets("Sheet1").Range("A1:G1"). _ 
 Borders(xlEdgeBottom).Color = RGB(255, 0, 0)

Index 可以是下列其中一個 XlBordersIndex 常數: xlDiagonalDownxlDiagonalUpxlEdgeBottomxlEdgeLeftxlEdgeRightxlEdgeTopxlInsideHorizontalxlInsideVertical

屬性

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應