Klasse Border - Rahmen (Excel VBA)
Die Klasse Border stellt den Rahmen eines Objekts dar. Um eine Border -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim brd as Border
Set brd = ActiveCell.BorderAround()
For Each
Hier ist ein Beispiel für die Verarbeitung der Border -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.BorderAround.Color = RGB(0,0,255)'blue
ColorIndex
Gibt einen Variant-Wert zurück, der die Farbe des Rahmens darstellt, oder legt diesen Wert fest. Mögliche Rückgabewerte sind xlColorIndexAutomatic - Automatische Farbe, xlColorIndexNone - Keine Farbe.
Die Farbe wird als Indexwert in der aktuellen Farbpalette oder als eine der folgenden XlColorIndex-Konstanten angegeben: xlColorIndexAutomatic oder xlColorIndexNone.
ActiveCell.BorderAround.ColorIndex = xlColorIndexAutomatic
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.
xlDouble und xlSlantDashDot gelten nicht für Diagramme.
ActiveCell.BorderAround.LineStyle = xlContinuous
ThemeColor
Gibt die Designfarbe im angewendeten Farbschema zurück, das dem angegebenen Objekt zugeordnet ist, oder legt diese Farbe fest. Dies sind mögliche Werte für
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.BorderAround.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 festzulegen, der kleiner als-1 oder mehr als 1 ist, führt dies zu diesem Laufzeitfehler: "der angegebene Wert liegt außerhalb des zulässigen Werts."
ActiveCell.BorderAround.TintAndShade =
Weight
Gibt einen XlBorderWeight -Wert zurück, der die Stärke des Rahmens darstellt, oder legt diesen fest. Mögliche Rückgabewerte sind xlHairline - Haarlinie (dünnster Rahmen), xlMedium - Mittel, xlThick - Dick (breitester Rahmen), xlThin - Dünne.
ActiveCell.BorderAround.Weight = xlMedium