Ich habe 17 Diagramme auf einem Excel Sheet.
Jetzt möchte ich in jedem Sheet die Farbe der Linien wechseln.
Allerdings funktioniert der untere Code nicht so ganz. Wie könnte ich den umschreiben, daß in jedem Diagramm die Farbe geändert wird?
Dim shp As Diagramm
Dim g As Variant
For g = 1 To 17
For Each shp In ActiveSheet
If shp.Type = msoOLEObject Then
ActiveSheet.ChartObjects.Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
End If
Next
Next
End Sub
Mfg
Martin