Hallo, ich habe folgendes Problem, ich habe ein Diagramm (muss unbedingt als Typ "Netz mit Datenpunkten sein!).
Ich möchte nun, dass sie die Linie je nach Wert farblich ändert (Mit 2 Datensätzen zu arbeiten ist bei diesem Diagrammtyp leider keine Option)
Habt ihr da vielleicht ideen wie man sowas lösen kann?
ich habe mir erst einmal ein Makro vom Einfärben einer Linie aufgezeichnet.
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.FullSeriesCollection(2).Select
ActiveChart.FullSeriesCollection(2).Points(2).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(112, 48, 160)
.Transparency = 0
End With
End Sub
dann habe ich das etwas umgestrickt. Gewünschte Farben kannst Du übrigens auch aufzeichnen und dann hier einsetzen.
Code:
Sub Makro2()
'Diagramm aktivieren
ActiveSheet.ChartObjects("Diagramm 1").Activate
'innere Linie selectieren - muss nicht sein
ActiveChart.FullSeriesCollection(2).Select
'Schleife ueber alle Datenpunkte der Linie
For i = 1 To ActiveChart.FullSeriesCollection(2).Points.Count
'Punkt selectieren
ActiveChart.FullSeriesCollection(2).Points(i).Select
'Mit der zugehoerigen Line
With Selection.Format.Line
'Auswahl in Abhaengigkeit der Datenliste in Spalte C
Select Case Cells(i + 2, 3)
'bei kleiner gleich 4
Case Is <= 4
'irgendeine Farbe
.ForeColor.RGB = RGB(112, 48, 160)
'bei kleiner gleich 8 - wird nur durchlaufen wenn vorherige Bedingungen falsch
Case Is <= 8
'irgendeine Farbe
.ForeColor.RGB = RGB(112, 148, 160)
'ansonsten - wenn alle vorherigen Bedingungen falsch
Case Else
'irgendeine Farbe
.ForeColor.RGB = RGB(255, 255, 0)
'Ende Auswahl in Abhaengigkeit der Datenliste in Spalte C
End Select
'Ende Mit der zugehoerigen Line
End With
'Ende Schleife ueber alle Datenpunkte der Linie
Next
End Sub
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28 • Issi