Farbabfolge in Flächendiagrammen
Richard
ich bitte dringend um Hilfe bei einem Problem in Excel 2007.
In Excel 2003 und den vorhergehenden Versionen habe ich ein Makro verwendet (das freundlicherweise von Christian Fleischhauer im Internet zur Verfügung gestellt worden war) und nun in 2007 einfach nicht mehr funktioniert. Mit diesem makro ließen sich im RGB Raum kontinuierliche Farbabfolgen (z.B. "Landkarte" Farben von braun nach grün ) erzeugen. Meine VBA Kenntnisse sind leider nur bescheiden, deshalb die Bitte um Hilfe.
Nachfolgend das Makro:
Sub Farben()
' Makro1 Makro
' Makro am 21.07.97 von Christian Fleischhauer aufgezeichnet
Dim i As Integer
Dim a As Integer, e As Integer, s As Integer
Dim r As Single, g As Single, b As Single
Dim dr As Single, dg As Single, db As Single
a = 17
e = 32
s = e - a
r = 150
g = 255
b = 0
dr = (230 - r) / s
dg = (40 - g) / s
db = (0 - b) / s
For i = a To e
ActiveWorkbook.Colors(i) = RGB(r, g, b)
r = r + dr
g = g + dg
b = b + db
Next i
End Sub
Wo liegt der Fehler oder was mache ich falsch?
Vielen Dank vorab
mfg
Richard
