to change the colour of the data labels in a chart

ActiveSheet.ChartObjects("Chart 1").Activate ' <== Modify chart name to suit
    ActiveChart.SeriesCollection(1).DataLabels.Select ' <== modify series data labels to suit
    With Selection.Format.TextFrame2.TextRange.Font
        .BaselineOffset = 0
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorBackground1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
    End With