Makro: alle Diagramme formatieren

Bild

Betrifft: Makro: alle Diagramme formatieren
von: Kathi
Geschrieben am: 13.10.2015 17:50:31

Hallo zusammen,
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
Liebe Grüße

Bild

Betrifft: AW: Makro: alle Diagramme formatieren
von: ChrisL
Geschrieben am: 14.10.2015 09:41:25
Hi Kathi

Sub DiagrammFormat()
Dim i As Long, ch As ChartObject
Dim Farbe As Integer
For Each ch In ActiveSheet.ChartObjects
With ch.Chart.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
Next ch
End Sub

cu
Chris

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro: alle Diagramme formatieren"