VBA – Programmierung mit Excel Grundlagen
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Schriften, Rahmen, Farben<br />
10.9.2 Zuordnung von Rahmen<br />
Die Zuordnung von Rahmen ist über die Zugriffseigenschaft BORDERS oder die Methode<br />
BORDERAROUND möglich.<br />
Die BORDERS <strong>–</strong> Eigenschaft , die Rahmen an einzelne Zellen oder Zellenbereiche zuordnen<br />
kann, hat zwei Syntaxvarianten:<br />
Objekt.Borders<br />
für die Zuordnung von Gesamtrahmen<br />
Objekt.Borders(Index)<br />
für die Zuordnung von Teilrahmen über den INDEXWERT <strong>mit</strong> den aus Konstanten<br />
bestehenden Argumenten XLTOP, XLBOTTOM, XLLEFT und XLRIGHT.<br />
Für die Eigenschaft sind u.a. die Eigenschaften<br />
COLOR Rahmenfarbe als Mischwert<br />
COLORINDEX Rahmenfarbe aus der <strong>Excel</strong> <strong>–</strong> Palette (Wert 1 bis 56)<br />
LINESTYLE Rahmenart, durch die Konstanten XLCONTINUOUS,<br />
XLDASH, XLDOUBLE, XLDOT und XLNONE definiert<br />
(XLNONE entfernt den Rahmen).<br />
WEIGHT Rahmenstärke, durch die Konstanten XLHAIRLINE,<br />
XLMEDIUM, XLTHICK, XLTHIN definiert.<br />
Wie schon bei der Zuweisung von Schriftattributen, ist es bei Rahmen möglich, einzelne<br />
Attribute zuzuordnen:<br />
Range("B1:B5").Borders.LineStyle = xlDot<br />
aber i.d.R. werden auch hier mehrere Attribute gleichzeitig zugeordnet (auch hier, wie bei<br />
den Schriftattributen) über WITH <strong>–</strong> Strukturen:<br />
<br />
Sub Rahmen()<br />
With Range("B1:B5").Borders<br />
.LineStyle = xlContinuous<br />
.ColorIndex = 26<br />
.Weight = xlThin<br />
End With<br />
End Sub<br />
setzt Rahmen <strong>mit</strong> den definierten Attributen um jede Zelle des angegebenen Zellenbereichs.<br />
<br />
Sub Rahmen()<br />
With Range("B1:B5").Borders(xlBottom)<br />
.LineStyle = xlDouble<br />
.ColorIndex = 24<br />
End With<br />
End Sub<br />
setzt einen doppelten Teilrahmen unten in jede Zelle des angegebenen Zellenbereichs.<br />
Die Methode BORDERAROUND erstellt einen Rahmen um einen angegebenen Zellenbereich<br />
herum. Die im Bereich liegenden Zellen erhalten keine Einzelrahmen. Die Syntax entspricht<br />
der oben schon beschriebenen.<br />
Range("B1:B5").BorderAround LineStyle:=xlDot, ColorIndex:=25<br />
➨ Die Argumente LINESTYLE und WEIGHT dürfen nur alternativ verwendet werden, da sie<br />
<strong>mit</strong>einander unverträglich sind.<br />
Seite 81