Macro to add data labels and color font white in Active Tab for all charts?

[Dude to Excel Dude]

Hello, I have some graphs connected to slicers. Everytime I add new data new bars appear. How can I achieve a macro that adds the data labels and colors them white (only the data labels) to all graphs showing in an specific tab. Thanks in advance.

 

[ParamRay]

.
.

Try something like this:

Sub DataLabels()

    Dim ChtObj As ChartObject
    Dim Ser As Series
    
    For Each ChtObj In ActiveSheet.ChartObjects
        For Each Ser In ChtObj.Chart.SeriesCollection
            With Ser
                .ApplyDataLabels
                .DataLabels.Format.TextFrame2.TextRange.Font.Fill. _
                    ForeColor.ObjectThemeColor = msoThemeColorBackground1
            End With
        Next Ser
    Next ChtObj

End Sub

 

[Dude to Excel Dude]

Works, thank you!