オブジェクトの輪郭を表します。
注釈
ほとんどの境界付きオブジェクト ( Range オブジェクトと Style オブジェクトを除くすべて) には、辺の数に関係なく、1 つのエンティティとして扱われる境界線があります。 境界全体を単位として返す必要があります。
この種類のオブジェクトの Border オブジェクトを返すには、TrendLine オブジェクトなどから Border プロパティを使用します。
Border オブジェクトのビジュアル プロパティは連動していることに注意してください。つまり、あるプロパティを変更すると、別のプロパティに変更が生じる可能性があります。 ほとんどの場合、誘導された変化は境界線を表示するのに役立ちます (これは望ましい場合と望ましくない場合があります)。 ただし、他の (より予期しない) 結果が発生する可能性があります。
以下は、予期しない結果との連動の例です。 この例では、罫線の Weight プロパティを xlThick に設定すると、以前に xlDashDotDot に設定されていたにもかかわらず、 LineStyle プロパティが xlSolid になります。
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
Range オブジェクトと Style オブジェクトには、左、右、上、下の 4 つの個別の境界線があり、個別に、またはグループとして返すことができます。 Borders プロパティを使用して Borders コレクションを返します。このコレクションには、4 つの境界線すべてが含まれ、境界線が 1 つの単位として扱われます。 次の使用例は、ワークシート 1 のセル A1 の下側の罫線を二重線に設定します。
Worksheets(1).Range("A1").Borders.LineStyle = xlDouble
Borders (index) を使用します。ここで、index は罫線を識別し、単一の Border オブジェクトを返します。 次の例では、セル A1:G1 の下縁取りの色を設定します。
Worksheets("Sheet1").Range("A1:G1"). _
Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
Index には、 XlBordersIndex 定数として、 xlDiagonalDown、 xlDiagonalUp、 xlEdgeBottom、 xlEdgeLeft、 xlEdgeRight、 xlEdgeTop、 xlInsideHorizontal、または xlInsideVertical のいずれかを指定できます。
プロパティ
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。