Die Farbpalette in Graustufen umwandeln (Tipp_82) -
07.02.2009Tabellen kann man ja schön bunt machen, das erhöht die Übersichtlichkeit. Es sieht aber leider nicht mehr so schön aus, wenn man sein Ergebnis auf einem Schwarz-Weiß-Drucker ausdrucken muss, da auf dem Bildschirm nicht erkennbar ist, welchen Grauton die ausgewählte Farbe beim Ausdruck bringt. Es wäre sinnvoller, wenn man die Möglichkeit hat, statt den Farben der Farbpalette gleich die äquivalenten Graustufen der jeweiligen Farbe auszuwählen.
Dieses Makro wandelt die Farbpaletten für Schrift und Hintergrund aus dem EXCEL-Menü "Format" in eine Graustufenpalette um:
Sub Colors()
Dim i As Integer
Dim C As Single
Application.ScreenUpdating = False
For i = 1 To 56
C = 256 / 56
ActiveWorkbook.Colors(i) = RGB(C * i, C * i, C * i)
Next i
End Sub
Die Änderungen sind nur in der aktiven Arbeitsmappe gültig. Wenn Sie die Mappe schließen, haben Sie wieder die Originalfarben.
