Diagramm - Säulen-Farben ändern mit Schleife/Macro
14.09.2006 09:08:36
Marc
ich muss mich mal wieder mit einem Problem an euch wenden.
Ich habe ein Diagramm mit 4 Säulen: i.O., Polierteil, Schleifteil und Ausschuss.
Die Daten dahinter kann ich mittels Dropdown auswählen (je 1 von 43 ist aktiv)
Jetzt möchte ich die Säulen in bestimmten Farben. Für i.O. immer grün, Polierteil orange, usw. und das für die 43 Auswahlen.
Ich habe das ganze auch schon per Macrorecorder aufgezeichnet. Aber ich komme mit der Schleife nicht weiter.
Das hier habe ich:
Dim i As Integer
For i = 1 To 43
ActiveChart.SeriesCollection(i).Select
ActiveChart.SeriesCollection(i).Points(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(i).Points(2).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
...
Next i
Vielen Dank schon mal!
Viele Grüße
Marc