Thanks to everybody for their comments and suggestions. Rather than
replying to each individual posting let me try make a general response here.

First, thanks for the general explanation of the palette. This helps round
out my mental model of how this stuff works and special thanks to Jon for
explaining the difference between using .Color vs .ColorIndex (palette
position vs "closest" color).


Second, let me add a bit more context about what I'm trying to do here. The
source workbook just contains formatting information ... its sort of a
template. The user can format that workbook to control how various bits of
data in the target workbook are formatted. So there is no particular
problem in copying the entire palette from the source workbook to the target
workbook (which I'm doing with assignment statement from my original
posting).


Third, I think the user formatted the target workbook under Excel 2007.
However the workbook was opened in compatibility mode so it would appear
that the palette continues to be limited to 56 colors and not 16m.


Fourth, when I test under Excel 2007, the first assignment statement
(TargetRange.Interior.Color = SourceRange.Interior.Color) seems to do the
right thing (the background color gets a kind of grey color) but the second
statement (TargetRange.Interior.ColorIndex =
SourceRange.Interior.ColorIndex) messes things up (the background color
becomes light yellow). The source interior Color is 14806254 and the source
interior ColorIndex is 19 which resolves to 13434879 when looked up in the
source palette.

Question 1: Wouldn't you expect the value of a cell's background Color to
equal that same cell's translated ColorIndex?


Fifth, when I test under Excel 2003 I immediately notice that the background
color of the cell in the source workbook has the light yellow color (not the
grey it had under Excel 2007). If I examine that cell, I find that both its
Color and translated ColorIndex are both equal to 13434879. So in this
case, it doesn't matter what kind of assignments I make in my code, I'm
never going to get the grey and am always going to get the light yellow.

Question 2: Given that the source workbook was saved in Excel 2007 in
compatibility mode, wouldn't you expect for the cells colors to be more
faithfully rendered in Excel 2003?


Thanks again for all of the help and suggestions.

josh





"Jon Peltier" wrote in message
...
And to further clarify the issue, in Excel 2003 and earlier, each workbook
has its own color palette. If you change the colors in one workbook, it
affects only that workbook. If the color palette in two workbooks are
different, then your code will not have the effects you want. Assigning
the color index from workbook A to workbook B merely uses the color in the
same position on the palette, whether they are the same or not. Assigning
the color from workbook A to workbook B uses the color on the palette of
workbook B that Excel decides is closest to the color that is requested.
Sometimes it's close, and sometimes it's way off.

Only if the palettes are the same will either approach work reliably. You
could change the color palette of the target workbook, but that may tick
off the owner of the workbook.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"ShaneDevenshire" wrote in
message ...
Hi,

There is nothing wrong with the approach you are using, the problem lies
in
the custom color palette. Excel does not look at the color, it looks at
the
position of the color on the palette. One alternative would be to add
code
to set the color palette to the colors you want. This might irritate the
users.

Excel 2003 supports 56 colors in the spreadsheet and therein lies the
problem. 2007 now supports something like 16 million.

Here is the code that sets a color using the RGB scale:

Sub AddColor()
ActiveWorkbook.Colors(27) = RGB(208, 255, 30)
End Sub

Notice what it does is replace the color at a given position in the
palette.
This means that where ever the user has used color 27 it will not be this
new color.
--
Thanks,
Shane Devenshire


"Josh Sale" wrote:

I have what I think should be a very simple problem but I can't quite
puzzle
it out. Basically I want to copy the background color from one
arbitrary
cell to another arbitrary cell. I want this process to work even if the
user has formatted the source cell using a color from a custom color
palette.

I currently have code that looks more or less like this:

If SourceRange.ColorIndex < xlNone Then
TargetRange.Interior.ColorIndex = SourceRange.ColorIndex
TargetRange.Interior.Color = SourceRange.Color
End If

Mostly this seems to work OK. However sometimes it fails (that is the
wrong
background color appears). I think in these cases it because the source
range has a custom background color.

Source and Target are always in different workbooks so I have a line
like
this in my code:

TargetRange.Parent.Parent.Colors = SourceRange.Parent.Parent.Colors

to try to copy the custom color palette from the source workbook into
the
target workbook.

I have to admit I'm fuzzy on difference between the Color and ColorIndex
properties. I gather the former is an rgb value and the latter is an
index
into the palette. Do I need to copy both to get my colors? One? Which
one?

TIA

josh