|
Hallo Experten,
wieder einmal mein geliebtes Thema Diagrammformatierung per VBA.
Worum es diesmal geht:
Mein bisheriger Code funktionert mittlerweile ganz gut, es sollen ALLE Diagramme in ALLEN Sheets formatiert werden.
Sub Chart()
Dim i As Integer, x As Integer, k As Integer
For i = 1 To ThisWorkbook.Worksheets.Count
For x = 1 To ThisWorkbook.Worksheets(i).ChartObjects.Count
Worksheets(i).ChartObjects(x).Activate
With ActiveChart.SeriesCollection(1)
If .Points.Count > 3 Then
.Points(1).Interior.Color = RGB(66, 32, 122)
.Points(2).Interior.Color = RGB(75, 22, 12)
.Points(3).Interior.Color = RGB(53, 65, 82)
.Points(4).Interior.Color = RGB(63, 80, 11)
Else
.Points(1).Interior.Color = RGB(66, 32, 122)
.Points(2).Interior.Color = RGB(75, 22, 12)
.Points(3).Interior.Color = RGB(53, 65, 82)
End If
End With
Next
Next
End Sub
PROBLEM: Die Anzahl Points kann sich erheblich unterscheiden, Pie Charts mit 3 oder auch mit 8 Stuecken. Ich wuerde gerne ohne umfangreichen If..then Code auskommen.
Weiss jemand Rat?
Gruesse
Intern 2011
|