Changing Chart Colors

I have a stacked collumn chart and i would like to be able to change the
colour of the individual series depenind on the series name i.e. if the title
of series 1 = "fred" then change the colour to red, I have seen some
variations around the theme in the newsgroup but can't quite the the
SeriesCollection method to work can anyone help.

Thanks DK

DK,

Something like this perhaps,

Sub test()
Dim cx As Long
Dim was As Worksheet
Dim sr As Series
Dim cht As Chart

Set was = ActiveSheet
Set cht = ws.ChartObjects(1).Chart

For Each sr In cht.SeriesCollection
cx = 0
Select Case UCase(sr.Name)
Case "FRED"
cx = 3
Case "PAM": cx = 4
Case Else: cx = xlAutomatic
End Select
Next

End Sub

Choose your colours carefully to avoid applying similar to the default
(automatic)colours, which for fill type series are applied in series index
order starting from colorindex 17.

Regards,
Peter T

"DK" <DK@discussions.microsoft.com> wrote in message
news:1661D3C4-3131-4176-9986-8A6463702E5B@microsoft.com...
> I have a stacked collumn chart and i would like to be able to change the
> colour of the individual series depenind on the series name i.e. if the
title
> of series 1 = "fred" then change the colour to red, I have seen some
> variations around the theme in the newsgroup but can't quite the the
> SeriesCollection method to work can anyone help.
>
> Thanks DK

This is how I got it working. Is there an listing of all major colours with
the appropriate number by them available?

Sub ChangeGraphColours()
Dim ch As Chart
Dim chObj As Object
Dim Sh As Worksheet
Dim Ser As Series

For Each ch In ThisWorkbook.Charts

For Each Ser In ch.SeriesCollection

Current = Ser.Name

If Current = "Fred" Then
Ser.Fill.ForeColor.SchemeColor = 26
End If

If Current = "Joe" Then
Ser.Fill.Patterned Pattern:=msoPatternWideUpwardDiagonal
Ser.Fill.ForeColor.SchemeColor = 50
Ser.Fill.BackColor.SchemeColor = 2
End If

Next Ser

Next ch

End Sub

"Peter T" wrote:

> DK,
>
> Something like this perhaps,
>
> Sub test()
> Dim cx As Long
> Dim was As Worksheet
> Dim sr As Series
> Dim cht As Chart
>
> Set was = ActiveSheet
> Set cht = ws.ChartObjects(1).Chart
>
> For Each sr In cht.SeriesCollection
> cx = 0
> Select Case UCase(sr.Name)
> Case "FRED"
> cx = 3
> Case "PAM": cx = 4
> Case Else: cx = xlAutomatic
> End Select
> Next
>
> End Sub
>
> Choose your colours carefully to avoid applying similar to the default
> (automatic)colours, which for fill type series are applied in series index
> order starting from colorindex 17.
>
> Regards,
> Peter T
>
> "DK" <DK@discussions.microsoft.com> wrote in message
> news:1661D3C4-3131-4176-9986-8A6463702E5B@microsoft.com...
> > I have a stacked collumn chart and i would like to be able to change the
> > colour of the individual series depenind on the series name i.e. if the
> title
> > of series 1 = "fred" then change the colour to red, I have seen some
> > variations around the theme in the newsgroup but can't quite the the
> > SeriesCollection method to work can anyone help.
> >
> > Thanks DK
>
>
>