Hi,

You are looking at cell colors you are not looking a conditional formatting
colors:

With Selection.FormatConditions(1).ColorScaleCriteria(1 ).FormatColor
.Color = 7039480
.TintAndShade = 0
End With

However, you may be able to retrieve the info on what the conditional format
is set for all the cells is but I don't believe you can retrieve what the
current cells color is. For one thing you can apply multiple conditional
formats to the same cell at the same time. For example it is possible in
2007 to format the cell with a Data Bar and a Color Scale and an Icon Set at
the same time. And have them all display at the same time. Similarly with
other combinations.

--
Thanks,
Shane Devenshire


" wrote:

I have a range of cells to which I've applied a simple red-to-green
color scale using the Conditional Formatting menu in Excel 2007. I
want to read the resulting colors that Excel has applied to the cell
interiors from VBA to use these colors for an associated graph. As a
test, I wrote the following worksheet function to see what colors
Excel had assigned:

Function CellColor(c As Range) As Variant
Application.Volatile
CellColor = c(1, 1).Interior.Color
End Function

Regardless of the cell's color, the returned value is always 16777215;
if I use the ColorIndex property, the returned value is (-4142). Do I
need to decode these to RGB values? If so, how? I don't need to solve
this for prior versions of Excel as I realize the color handling was
much different.

Thanks for your help.

Bob