Excel Diagramm Linien auf schwarz-weiss stellen
13. Mai 2009
Falls man in Diagrammen die Linienfarben auf schwarz stellen möchte, lässt sich das einfach mit diesem Makro unterstützen. So lassen sich auf Knopfdruck alle Diagramme innerhalb einer Excel-Datei umstellen.
Zur Funktion des Makros:
Die erste For-Each-Schleife durchläuft alle Blätter der Datei, die zweite Schleife alle Diagramme und die dritte Schleife alle Linien des Diagramms.
Der ColorIndex wird auf 1 gesetzt (schwarz) und der Linienfarbe, dem Marker und der Markerfüllung zugewiesen.
Siehe auch http://www.profi-excel.de/vba_makros/diagramm-linien-einfarben.htm
VBA:
-
Sub DiagrammeSW()
-
-
Dim mySht As Worksheet
-
Dim myDia As Object
-
Dim myLine As Object
-
Dim lineColorIndex As Long
-
-
For Each mySht In ActiveWorkbook.Sheets
-
-
For Each myDia In mySht.ChartObjects
-
-
For Each myLine In myDia.Chart.SeriesCollection
-
-
lineColorIndex = 1
-
-
myLine.MarkerBackgroundColorIndex = lineColorIndex
-
myLine.MarkerForegroundColorIndex = lineColorIndex
-
myLine.Border.ColorIndex = lineColorIndex
-
Next myLine
-
-
Next myDia
-
-
Next mySht
-
MsgBox "Linien auf schwarz umgestellt"
-
End Sub