Farbzuweisung bei Diagramm
08.07.2007 13:42:23
Michael
die Umstellung von Excel 2003 auf 2007 macht mir ziemliche Probleme. Meine Anwendung basiert auf vielen VBA Routinen, welche meist vorher berechnete Farbzuordnungen durchführen. Einige funktionieren in Excel 2007 plötzlich nicht mehr !
Bei folgendem Codeausschnitt werden einzelne Punkte eines Ringdiagramms verändert. Da bei der Verwendung von ColorIndex Excel 2007 regelmäßig abschmiert, habe ich schon auf das neue Farbmodell umgestellt. Folgender Code funktioniert:
Sub SH_Wheel()
Dim intRow As Integer 'Zeilennummer
Dim I As Integer
Dim dblFontCol(24) As Double 'Schriftfarbe in RGB Farbnummer
For I = 1 To 24
dblFontCol(I)= Sheet27.Range("BC" & intRow) ' Einlesen von Farbnummern
With Sheet8.ChartObjects("Ring3").Chart.SeriesCollection(1).Points(I).Fill
.Patterned Pattern:=msoPatternOutlinedDiamond
.Visible = True
.ForeColor.SchemeColor = 3 'Vordergrund
.BackColor.SchemeColor = 2 'Hintergrund
End With
With Sheet8.ChartObjects("Ring3").Chart.SeriesCollection(1).Points(I).DataLabel.Font
.Color = dblFontCol(I) 'Schriftfarbe
.Background = xlTransparent
End With
End With
intRow = intRow + 1
Next I
End Sub
Ich möchte jetzt konsequent die SchemeColor Bezeichnungen ersetzen durch die neuen RGB Farbnummern:
Sub SH_Wheel()
Dim intRow As Integer 'Zeilennummer
Dim I As Integer
Dim dblFontCol(24) As Double 'Schriftfarbe in RGB Farbnummer
For I = 1 To 24
dblFontCol(I)= Sheet27.Range("BC" & intRow) ' Einlesen von Farbnummern
With Sheet8.ChartObjects("Ring3").Chart.SeriesCollection(1).Points(I).Fill
.Patterned Pattern:=msoPatternOutlinedDiamond
.Visible = True
.ForeColor = RGB (255, 0, 0) 'Vordergrund - Rot
.BackColor = RGB (255, 255, 255) 'Hintergrund - Weiß
End With
With Sheet8.ChartObjects("Ring3").Chart.SeriesCollection(1).Points(I).DataLabel.Font
.Color = dblFontCol(I) 'Schriftfarbe
.Background = xlTransparent
End With
End With
intRow = intRow + 1
Next I
End Sub
Nun erscheint folgende Fehlermeldung:
Laufzeitfehler 450:
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft.
Die Excel VBA Hilfe zeigt aber für die Eigenschaft Forecolor diese Farbzuweisung!
Was mache ich falsch?
Danke für Eure Hilfe
Michael