-4142 is not white, it's default. Which color index values are applied to
the cells in your range? Which are applied to the series?

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/
_______


"Bob Barnes" wrote in message
...
But, there are only 6 Colors being used...

Dark Blue = 41
Dark Green = 4
White = -4142
Light Yellow = 6
Dark Red = 3

Your thoughts? TIA - Bob

"Shane Devenshire" wrote:

Hi,

Of course there are only 56 colors on the 2003 pallette to which the
ColorIndex applies.

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Bob Barnes" wrote:

Has anyone encountered this? TIA - Bob

Sub ColorBySeriesName()
Dim rPatterns As Range
Dim iSeries As Long
Dim rSeries As Range
Set rPatterns = ActiveSheet.Range("A1:H66")
With ActiveSheet.ChartObjects("Chart 1").Chart
For iSeries = 1 To .SeriesCollection.Count
Set rSeries = rPatterns.Find(What:=.SeriesCollection(iSeries).Na me)
If Not rSeries Is Nothing Then
'Gets near end of the SeriesCollection (56th of 66) & doesn't assign
correct
'ColorIndex
.SeriesCollection(iSeries).Interior.ColorIndex =
rSeries.Interior.ColorIndex
End If
Next
End With
End Sub

Jon - Thank you.

These are the colors being used...

Dark Blue = 41
Dark Green = 4
White = -4142
Light Yellow = 6
Dark Red = 3

You're correct...the -4142 is th normal color of an Excel Cell, which
happens to look like )is technically ?) white.


"Jon Peltier" wrote:

-4142 is not white, it's default. Which color index values are applied to
the cells in your range? Which are applied to the series?

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/
_______


"Bob Barnes" wrote in message
...
But, there are only 6 Colors being used...

Dark Blue = 41
Dark Green = 4
White = -4142
Light Yellow = 6
Dark Red = 3

Your thoughts? TIA - Bob

"Shane Devenshire" wrote:

Hi,

Of course there are only 56 colors on the 2003 pallette to which the
ColorIndex applies.

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Bob Barnes" wrote:

Has anyone encountered this? TIA - Bob

Sub ColorBySeriesName()
Dim rPatterns As Range
Dim iSeries As Long
Dim rSeries As Range
Set rPatterns = ActiveSheet.Range("A1:H66")
With ActiveSheet.ChartObjects("Chart 1").Chart
For iSeries = 1 To .SeriesCollection.Count
Set rSeries = rPatterns.Find(What:=.SeriesCollection(iSeries).Na me)
If Not rSeries Is Nothing Then
'Gets near end of the SeriesCollection (56th of 66) & doesn't assign
correct
'ColorIndex
.SeriesCollection(iSeries).Interior.ColorIndex =
rSeries.Interior.ColorIndex
End If
Next
End With
End Sub