Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro: alle Diagramme formatieren

Makro: alle Diagramme formatieren
13.10.2015 17:50:31
Kathi
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro: alle Diagramme formatieren
14.10.2015 09:41:25
ChrisL
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige