30.09.2013 Aufrufe

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

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!