per VBA viele Diagramm-Datenreihen formatieren
Bernd
ich habe es tatsächlich geschafft, in ein Diagramm 235 Datenreihen mit Diagrammtyp xlXYScatterLines einzubinden. Nun suche ich eine Lösung, um diese Datenreihen in einer bestimmten Art und Weise zu formatieren. Händisch viel Arbeit, deswegen möchte ich die Datenreihe per VBA ansprechen und den einzelnen Datenpunkten jeder Datenreihe die gewünschte Formatierung mitgeben. Ich scheitere aber an der variablen Ansprache der Datenreihen. Ein Makro folgender Art führt nicht zum Erfolg, weshalb ich für Gegenvorschläge sehr dankbar wäre:
Sub Formataendern()
Dim Reihennummer as Integer
For Reihennummer = 1 to 235
ActiveSheet.ChartObjects("Diagramm 1").Select
ActiveChart.SeriesCollection(Reihennummer).Select
ActiveChart.SeriesCollection(Reihennummer).Points(1).Select
With Selection
.MarkerBackgroundColorIndex = 44
.MarkerForegroundColorIndex = 1
.MarkerStyle = xlCircle
.MarkerSize = 5
End With
ActiveChart.SeriesCollection(Reihennummer).Points(2).Select
With Selection
.MarkerBackgroundColorIndex = 39
.MarkerForegroundColorIndex = 1
.MarkerStyle = xlCircle
.MarkerSize = 7
End With
Next Reihennummer
End Sub
Kann mir jemand helfen?
Viele Grüße
Bernd B.