I have a button on a worksheet which runs some VBA code. Most of it
works fine but when it comes to a section that is supposed to change
the line, fill and font color of an AutoShape ( a rectangle) containing
some text, I have a problem. I can change the line color and fill color
okay with the following code:


Code:
--------------------
'fill color = tan
Shapes("test").Fill.ForeColor.SchemeColor = 47

'line color = black
Shapes("test").Line.ForeColor.SchemeColor = 64
--------------------


However, when I programmed in this code for the font color...


Code:
--------------------
Shapes("test").Font.ColorIndex = 0
--------------------


...I get the error message "object doesn't support this property or
method".

I take this to mean that you cannot change the font color, but this
must be wrong! How can I change the font color if the object doesn't
have the .Font.ColorIndex property?

If I actually select the object on the worksheet then I can record a
macro that will change the color. This is what I get:


Code:
--------------------
Selection.Font.ColorIndex = 0
--------------------


But I don't want to have to select the object in order to change the
font color.

What can I do?

Thanks
-Rob


--
TheRobsterUK


------------------------------------------------------------------------
TheRobsterUK's Profile: http://www.excelforum.com/member.php...fo&userid=9924
View this thread: http://www.excelforum.com/showthread...hreadid=472204