auf Basis des von Beverly beantworteten Threads
https://www.herber.de/forum/messages/1051268.html
möchte ich noch eine Kleinigkeit via VBA ändern
Es sollen die Hilfslinien der x-Achse mit hellgrauen dünnen Linien markiert werden.
Ich habe jetzt per Makro-Recorder das Ergebnis eingebaut - es läuft auch :)
Aber : kann man den VBA-Code noch "vereinfachen" / kürzen ?
besten Gruß Stefan
hier der Code
Sub DatenreihenFaerben()
Dim chDiagramm As Chart
Dim inReihe As Integer
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
With chDiagramm
For inReihe = 1 To .SeriesCollection.Count
.SeriesCollection(inReihe).Border.ColorIndex = Cells(26, inReihe + 4).Interior. _
ColorIndex
.SeriesCollection(inReihe).Border.Weight = xlThick
Next inReihe
End With
Set chDiagramm = Nothing
'NEU Skalierungslinien der X-Achse formatieren (dünne Linie hellgrau)
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.ColorIndex = 15
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
End Sub