Ich möchte mit VBA eine Linie im meinem Diagramm einfärben.
Per Makrorecorder wird das für die einzelnen Farben/Situationen langsam etwas mühselig.
Könnte mir jemand helfen diesen Code zu optimieren:
Sub Makro6()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.FullSeriesCollection(1).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 150, 255)
.Transparency = 0
End With
End Sub
Idealerweise sollte der Code die aktuelle Hintergrundfarbe die Zelle M14 im gleichen Arbeitsblatt auslesen und verwenden.Ich habe es vielfach selbst versucht und bin gescheitert :(