trouble setting colors
It worked for me in xl2003.
"feh" wrote in message
...
I'd like to set the color of the datalabels for my series to be the
same as the series itself.
The following does not work. It would seem that the color codes used
by .interior.color of the series are different from those used for the
font of a selection of a datalabel.
Dim myChrt As Chart
Set myChrt = ActiveChart
Dim oSer As Series
Dim dlabel As DataLabel
Dim oSerColor As String
For Each oSer In myChrt.SeriesCollection
oSerColor = oSer.Interior.Color
oSer.HasDataLabels = True
For Each dlabel In oSer.DataLabels
dlabel.Select
Selection.Font.Color = oSerColor
Next
Next
I'm using office 2007 btw.
Thanks,
Charles
|