Forum Discussion
Excel changes multiple series colors at once
WesJD This is funny. I'm trying to achieve the exact opposite of what you're describing here. I have a dataset of 100 iterations and I wish to have them all in one color. Why? Because these are all generated simulations that are based on a single original dataset. I want to make a chart where only the original dataset has a unique color from the other 100 iterations and I don't feel like going through the color of every single one of those 100 series just to change it, then find out that the color is wrong, so I end up changing it again.
TL;DR I'm trying to create your bug on purpose
AhmedMahmoud23 This could be done with VBA. I have some dummy data, an original series plus four iterations (but it can be as many as you want, up to Excel's limit). The original chart is at top right. In "Chart Before" I have formatted the original series with a black line and the first iteration with a gray line. "Chart After" is the result of a simple VBA procedure, below the screenshot.
Sub FormatSeriesTheSame()
If ActiveChart Is Nothing Then
MsgBox "Select a chart and try again!", vbExclamation
GoTo ExitSub
End If
With ActiveChart
Dim iColor As Long
iColor = .SeriesCollection(2).Format.Line.ForeColor.RGB
Dim iSeries As Long
For iSeries = 3 To .SeriesCollection.Count
.SeriesCollection(iSeries).Format.Line.ForeColor.RGB = iColor
Next
End With
ExitSub:
End Sub
- Thanks you for the help. It worked perfectly 🙂