ExcelBanter - Font.Color - syntax error ?

That looks fine to me on the basis of what you've posted.

Guessing, at the time you apply the font colour does your shape have a
textframe and text. If not the code would error possibly masked if under on
error resume next. Thereafter the font colour would remain same as your
default for new shapes.

If(?) that's what your doing, eg an empty text box with font pre-formatted,
there's another way.

Set shp = ActiveSheet.Shapes.AddTextbox(msoShapeRectangle, _
10, 10, 50, 50)
With shp

.Fill.ForeColor.RGB = RGB(255, 255, 255)

.DrawingObject.Font.Color = RGB(255, 0, 0) 'red for testing
.Visible = True
' or
'.DrawingObject.Font.ColorIndex = xlAutomatic '3 for red
.Select
End With

This should add an empty text box and select, now type in some text.

Regards,
Peter T

PS, although .forecolor can be RGB formatted with any one of 16 million
colours, font can only accept one of the 56 palette colours or automatic,
when applying an rgb the closest match in the palette will be applied.

"Linda Edlund" wrote in message
7...
Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 50, 50)
With shp
…
.Fill.ForeColor.RGB = RGB(255, 255, 255)
…
.TextFrame.Characters.Font.Color = RGB(0, 0, 0)
…
End With

The code:
.TextFrame.Characters.Font.Color = RGB(0, 0, 0)
gives results <grey not <black why ?
is there any syntax error ?

Many thanks in advance