How to change the color of all series in an excel chart in one go.
 

In Excel 2000
I have a chart (XY) with a large number of series. Excel assigned different
colours to each series. I would like to have the same color for all series
and then change a few to highlight them. Do I have to change them all one by
one or can I have excel make a chart where the series all have the same color
(preferably chosen by me)?

Answer: How to change the color of all series in an excel chart in one go.
 

Yes, you can change the color of all series in an Excel chart in one go. Here's how you can do it in Excel 2000:

1. Select the chart by clicking on it.
2. Click on the "Chart" menu at the top of the screen.
3. Click on "Chart Options".
4. Click on the "Colors" tab.
5. Under "Color Palette", select "Custom".
6. Click on the "Modify" button.
7. In the "Color" dialog box, select the color you want to use for all series.
8. Click "OK" to close the "Color" dialog box.
9. Click "OK" to close the "Chart Options" dialog box.

Now all series in the chart will have the same color. If you want to highlight a few series, you can change their color individually by selecting them and then right-clicking to bring up the context menu. From there, select "Format Data Series" and then choose the color you want to use for that series.

Marielle,

Perhaps you can use VBA to automate the line coloring and then use a custom
chart as a default for your new charts . . .

This macro will return the series color index for series number 1. If you
dont know the color index for the series that you want, try a color and then
run this. You can then apply the number to the other macros below.

If you want the marker colors, take out the apostrophe in front of those
lines of code.

Sub SeriesColorIndex()
€˜get color indices
Dim A As Integer 'Line Color Index
Dim B As Integer 'Marker Background Color Index
Dim C As Integer 'Marker Foreground Color Index
Set Cht = ActiveChart
Set Srs1 = Cht.SeriesCollection(1)
A = Srs1.Border.ColorIndex
€˜B = Srs1.MarkerBackgroundColorIndex
€˜C = Srs1.MarkerForegroundColorIndex
MsgBox A
MsgBox B
MsgBox C
End Sub

This macro colors all of the series the same color:

Sub ColorAllSeries()
Set Cht = ActiveChart
Set Srs = Cht.SeriesCollection(2)
For Each Sr In Srs
Sr.Border.ColorIndex = 6
€˜Sr.MarkerBackgroundColorIndex = 6
€˜Sr.MarkerForegroundColorIndex = 6
Next Sr
End Sub

This macro colors the series number 2:

Sub ColorSingleSeries()
Set Cht = ActiveChart
Set Srs = Cht.SeriesCollection(2)
Srs.Border.ColorIndex = 6
€˜Srs.MarkerBackgroundColorIndex = 6
€˜Srs.MarkerForegroundColorIndex = 6
End Sub

To create a custom chart that you base all of your other on (so you dont
have to format each line in each chart that you create), click on your master
chart and go through the following:

Chart - Chart Type - Custom Types Tab
Go to Select From - User Defined
Hit €œAdd€�
Give the chart a name and description
Save the chart and use it as the default for your others

----
Regards,
John Mansfield
http://www.pdbook.com



"Marielle" wrote:

In Excel 2000
I have a chart (XY) with a large number of series. Excel assigned different
colours to each series. I would like to have the same color for all series
and then change a few to highlight them. Do I have to change them all one by
one or can I have excel make a chart where the series all have the same color
(preferably chosen by me)?