Just wondering if you are delving deep enough with the code to find the charts.

Maybe starting here with

For Each sld In ActivePresentation.Slides
            For Each shp In sld.Shapes
                If shp.HasChart Then
                     .... your code to alter the data