Makro: alle Diagramme formatieren
13.10.2015 17:50:31
Kathi
ich brauche bitte wieder eure Hilfe. Ich habe einen Code gefunden, den ich nun gerne anpassen würde und zwar nämlich so, dass alle Diagramme in meiner Excel-Tabelle (gibt nur 1 Blatt) formatiert werden. Habs schon mit "For each" probiert, aber das hat nicht geklappt :-(
With ActiveChart.SeriesCollection(1) ... daran liegt es wohl, aber das ist mir leider völlig unbekannt.
Sub DiagrammFormat()
Dim i As Long
Dim Farbe As Integer
With ActiveChart.SeriesCollection(1)
For i = 1 To .Points.Count
Select Case WorksheetFunction.Index(.XValues, i)
Case "A"
Farbe = 6 ' Gelb
Case "B"
Farbe = 5 ' Blau
Case "C"
Farbe = 3 ' Rot
Case "D"
Farbe = 13 ' Violett
Case "E"
Farbe = 46 ' Orange
Case "F"
Farbe = 4 ' Grün
Case "G"
Farbe = 8 'Cyan
End Select
.Points(i).Interior.ColorIndex = Farbe
Next
End With
End Sub
Anzeige