Apply different color to datalabels
Your code works fine for me in 2003/2007, subject of course assigning a
value for C of between 1-56 or xlAutomatic/xlNone
FWIW if only using 2007/2010, although the code will work there is a new
preferred method of applying formats to interiors.
Regards,
Peter T
"TG" wrote in message
...
I have a code that adds series to a chart.
I want to set the Datalabel.Interior.ColorIndex, but for some reason
the ClorIndex is not applyed to the DataLabel..
Any suggestion on why? Or how can i do this?
My current code includes:
With Sheets("Chart").SeriesCollection.NewSeries
.Name = Name
.XValues = XValue
.Values = YValue
.MarkerSize = 5
.ApplyDataLabels
.DataLabels.Interior.Pattern = xlSolid
.DataLabels.Interior.ColorIndex = C
.DataLabels.Border.ColorIndex = 1
.DataLabels.Font.Size = 7
.DataLabels.Position = xlCenter
.DataLabels.Orientation = 45
.DataLabels.ShowSeriesName = True
.DataLabels.ShowValue = False
End With
(where C is set to a valid value using a Select Case loop.)
|