Gruppe
Allgemein
Problem
Wie kann ich die Farbpalette für die aktive Arbeitsmappe so ändern, daß ausschließlich abgestufte Graustufen zur Verfügung stehen?
StandardModule: basMain
Sub SetColors()
Dim iCounter As Integer, iColor As Integer
Application.ScreenUpdating = False
For iCounter = 1 To 56
iColor = 256 / 56
ActiveWorkbook.Colors(iCounter) = _
RGB(iColor * iCounter, iColor * _
iCounter, iColor * iCounter)
Next iCounter
End Sub
Sub ResetColors()
ActiveWorkbook.ResetColors
End Sub