VBA – Programmierung mit Excel Grundlagen

Seite 80
Manipulation von Zellen und Zellbereichen
10.9 Schriften, Rahmen, Farben
Die Zuordnung von Schriften, Rahmen und Farben an Zellen ist über dafür von VBA zur
Verfügung gestellten Zugriffseigenschaften möglich. Die Palette dieser Eigenschaften ist
recht umfangreich, eine Auswahl der gängigsten wird hier vorgestellt.
10.9.1 Zuordnung von Schriften
Für die Zuordnung von Schriften und Schriftattributen wird die Zugriffseigenschaft FONT
benutzt. Sie gibt ein FONT – Objekt zurück, für welches u.a. die folgenden Eigenschaften
definiert sind:
BOLD wenn, =TRUE gesetzt, wird Fettschrift ausgegeben.
COLOR Definition der Schriftfarbe über einen Farbwert einer Mischfarbe
COLORINDEX Definition einer Schriftfarbe aus der Excel – Farbpalette (Wert 1 bis 56)
FONTSTYLE Schriftstil des Zellinhalts
ITALIC wenn = TRUE gesetzt - Ausgabe kursiver Schrift
NAME Name der Schriftart
SIZE Schriftgröße in Punkten ( = 1/72 Zoll)
SUBSCRIPT wenn = TRUE gesetzt – tiefgestellte Schrift
SUPERSCRIPT wenn = TRUE gesetzt – hochgestellte Schrift
UNDERLINE wenn = TRUE gesetzt – unterstrichene Schrift
Benutzt wird FONT in der allgemeinen Syntaxform:
Range.Font.Eigenschaft = Wert
beispielsweise:
Range("B3:C4").Font.Size = 18
In der Praxis werden oft gleichzeitig mehrere Schriftattribute zugeordnet, womit es sinnvoll
ist, die Zuordnung in einer WITH – Struktur durchzuführen:
Sub Schrift()
With Worksheets("Tabelle1").Range("B1:B5").Font
.Size = 14
.Bold = True
.Italic = True
.Name = "Arial"
.ColorIndex = 4
End With
End Sub
Die Eigenschaft FONT erlaubt nicht nur Zuweisungen von Schriftattributen, sondern auch
deren Ermittlung (z.B. für evtl. Änderungen):
Sub Ersetzen()
For Each Schrift In Range("B1:B5")
If Schrift.Font.Size = 14 Then
Schrift.Font.Size = 8
Schrift.Font.Italic = False
End If
Next
End Sub