Borders-Objekt (Excel)

Eine Auflistung von vier Border-Objekten , die die vier Rahmen eines Range - oder Style-Objekts darstellen.

HinwBemerkungeneise

Verwenden Sie die Borders-Eigenschaft, um die Borders-Auflistung zurückzugeben, die alle vier Rahmenlinien enthält. Sie können auf jede Seite einer Zelle oder eines Bereichs unterschiedliche Rahmen anwenden. Weitere Informationen zum Anwenden von Rahmen auf einen Zellbereich finden Sie unter Range.Borders-Eigenschaft .

Sie können die Rahmeneigenschaften eines einzelnen Rahmens nur mit den Objekten Range und Style festlegen. Andere umrandete Objekte, z. B. Fehlerbalken und Reihenlinien, verfügen über einen Rahmen, der als einzelne Entität behandelt wird, unabhängig davon, wie viele Seiten sie hat. Die Eigenschaften für diese Objekte müssen Sie für den gesamten Rahmen als Einheit zurückgeben und festlegen. Weitere Informationen finden Sie unter dem Border-Objekt.

Beispiele

Im folgenden Beispiel erhält die Zelle A1 im ersten Arbeitsblatt eine Doppellinie als Rahmen.

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

Verwenden Sie Rahmen (Index), wobei index den Rahmen identifiziert, um ein einzelnes Border-Objekt zurückzugeben. Index kann eine der folgenden XlBordersIndex-Konstanten sein: xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal oder xlInsideVertical.

Im folgenden Beispiel wird die Farbe des unteren Rahmens der Zellen A1:G1 auf Rot festgelegt.

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

Im folgenden Beispiel wird ein dünner Rahmen um alle Zellen im Bereich generiert.

Dim rng As Range: Set rng = ws.Range("B6", "D8")
        
With rng.Borders
   .LineStyle = xlContinuous
   .Weight = xlThin
End With

Im folgenden Beispiel werden nur die inneren Zellenrahmen des Bereichs geändert.

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

Eigenschaften

Siehe auch

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.