Klasse Borders (Excel VBA)

Eine Auflistung von vier Border -Objekten, die die vier Rahmen eines Range -oder Style -Objekts darstellen. Um eine Borders -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim brds as Borders
Set brds = ActiveCell.DisplayFormat.Borders

For Each

Hier ist ein Beispiel für die Verarbeitung der Borders -Elemente in einer Sammlung

Dim brd As Border
For Each brd In Application.Borders
	
Next brd

Color

Gibt die Primärfarbe des Objekts zurück oder legt diese fest, wie in der Tabelle im Abschnitt mit den Hinweisen aufgeführt.

ActiveCell.DisplayFormat.Borders.Color = RGB(0,0,255)'blue

ColorIndex

Gibt einen Variant-Wert zurück, der die Farbe aller vier Rahmen darstellt, oder legt diesen Wert fest. Mögliche Rückgabewerte sind xlColorIndexAutomatic - Automatische Farbe, xlColorIndexNone - Keine Farbe.

Diese Eigenschaft gibt Null zurück, wenn alle vier Rahmen nicht dieselbe Farbe aufweisen. Die Farbe wird als Indexwert in der aktuellen Farbpalette oder als eine der folgenden XlColorIndex-Konstanten angegeben: xlColorIndexAutomatic oder xlColorIndexNone.

ActiveCell.DisplayFormat.Borders.ColorIndex =

Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveCell.DisplayFormat.Borders.Count

Item

Gibt ein Border -Objekt zurück, das einen der Ränder eines Zellbereichs oder einer Formatvorlage darstellt.

Item (Index)

Index: Dies kann eine der XlBordersIndex -Konstanten sein.

Dim brdItem As Border
Set brdItem = ActiveCell.DisplayFormat.Borders(Index:=xlEdgeBottom)

LineStyle

Gibt die Linienart für den Rahmen zurück oder legt sie fest. Mögliche Rückgabewerte sind xlContinuous - Durchgehende Linie, xlDash - Gestrichelte Linie, xlDashDot - Abwechselnd Striche und Punkte, xlDashDotDot - Strich gefolgt von zwei Punkten, xlDot - Gepunktete Linie, xlDouble - Doppelte Linie, xlLineStyleNone - Keine Linie, xlSlantDashDot - Schrägstriche.

ActiveCell.DisplayFormat.Borders.LineStyle = xlContinuous

ThemeColor

Gibt die Designfarbe im angewendeten Farbschema zurück, das dem angegebenen Objekt zugeordnet ist, oder legt diese Farbe fest.

Wenn Sie versuchen, auf eine Designfarbe für ein Objekt zuzugreifen, dessen Farbe aktuell nicht durch ein Design festgelegt ist, wird der Laufzeitfehler "Ungültige Anforderung" ausgegeben.

ActiveCell.DisplayFormat.Borders.ThemeColor =

TintAndShade

Gibt einen Single-Wert zurück, der eine Farbe aufhellt oder abdunkelt, oder legt diesen Wert fest.

Sie können eine Zahl von -1 (dunkelster Wert) bis 1 (hellster Wert) für die TintAndShade-Eigenschaft eingeben. Wenn Sie versuchen, diese Eigenschaft auf einen Wert unter -1 oder über 1 festzulegen, wird der Laufzeitfehler "Der angegebene Wert ist außerhalb des zulässigen Bereichs" ausgegeben.

ActiveCell.DisplayFormat.Borders.TintAndShade =

Value

Synonym für Borders. inlinestyle.

ActiveCell.DisplayFormat.Borders.Value =

Weight

Gibt einen XlBorderWeight -Wert zurück, der die Stärke des Rahmens darstellt, oder legt diesen fest.

ActiveCell.DisplayFormat.Borders.Weight =