VBA to colour data labels same as line colour - dynamic chart

[Jabba69]

Hi
I have a dynamic chart with a varying number of data series.
I would like to create a macro to make the data labels colour match the line colour.

I have tried the code below, but it seems to match 1 data series, but the rest - the data labels are coloured white?
Any ideas on how to do this?

Thanks

Dim ser As Series

For Each ser In ActiveSheet.ChartObjects("Chart 43").Chart.SeriesCollection

 With ser.DataLabels
   
    .Format.TextFrame2.TextRange.Font.Fill.ForeColor = ser.Format.Line.ForeColor
    End With

Next ser

[Jabba69]

Anyone...?

[watersev]

hi Jabba69,

With ActiveSheet.ChartObjects("Chart 43").Chart
    For i = 1 To .SeriesCollection.Count
        .SeriesCollection(i).DataLabels.Font.Color = .SeriesCollection(i).Format.Line.ForeColor.RGB
    Next
End With

[watersev]

or with you syntax:

For Each ser In ActiveSheet.ChartObjects("Chart 43").Chart.SeriesCollection
        ser.DataLabels.Font.Color = ser.Format.Line.ForeColor.RGB
    Next

[Jabba69]

Thanks watersev
I tried the second syntax, and it did the same as my code - coloured data labels in white.

But it got me thinking, and a bit of playing around made me realise that it was making white for the data series that were automatically allocated a colour. When I select a series and pick a line colour, the code works (yours and mine).

I can work with this, although ideally it be better if it automatically recognised the line colour (even if auto generated).

Thanks