Changing the colour of text for a data label

[robjowens]

is there a macro to change the colour of the text of data label in a chart?

recorded the below but it has an issue with the 'with' statement

cheers.

Sub Macro2()
'
' Macro2 Macro
'
'
    Range("H34").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PlotArea.Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).DataLabels.Select
 
        With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With

 

[Richard Schollar]

I assume you are using xl2007 or above? Try using the colorindex property of font:

ActiveChart.SeriesCollection(1).DataLabels.Font.ColorIndex = 3

 

[sijpie]

Your code should work. There are a few superfluous lines, but that shouldn't stop it from working as long as there are datalabels

Sub Macro1()
'
'
    ActiveSheet.ChartObjects("Chart 1").Activate
    With ActiveChart.SeriesCollection(1).DataLabels.Font
        .ColorIndex = 4
    End With
End Sub

I haven't got Excel 2007/2010, so can't test the themecolors etc. But try it with the above to see if the datalables turn to green.

The chart should have datalabels, otherwise you need to amend the macro to create these first

 

[robjowens]

Thanks both of you for prompt response -- that's just what I was trying to do