ChartFont.ColorIndex (Word)

Returns or sets the color of the font.

The color is specified as an index value into the current color palette, or as one of the following XlColorIndex constants:

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.Title 
 ' Set the color to red. 
 .Font.ColorIndex = 3 
 End If 
 End With 
 End If 
End With