in meinem Diagramm gibt es sehr viele (über 60) grapfen. Die sollen alle gleich aussehen - das nachher die einzeln Linie nicht mehr zu identifizieren ist ist gewollt.
Wie aber schaffe ich es nicht im Code einzel jede Linie ansprechen zu müssen, sondern dass VBA _
alle (und das egal wieviele vorhanden sind entsprechend anpasst?
Sub alle_gleich()
ActiveSheet.ChartObjects("Diagramm 100").Activate
ActiveChart.SeriesCollection(16).Select
With Selection.Border
.ColorIndex = 5
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = True
.MarkerSize = 3
.Shadow = False
End With
End Sub
Für Eure Hilfe bedanke ich mich schon jetzt.
Gruß
Johannes