Podmiana arkusza danych w PowerPoint

Mam utworzoną prezentację PowerPoint, w której osadzone są wykresy z Excel. (wszystkie pobierane są z jednego pliku)
Szukam sposobu na szybką podmianę na inny plik (z tej samej lokalizacji, ale inna nazwa pliku).
W jaki sposób mogę tego dokonać? (problemem jest ich duża liczba i przeklikiwanie raczej nie wchodzi w rachubę)

Można użyć makra.
Coś w tym stylu:

Sub ChangeChartsSource()
    
Dim newFilePath As String
Dim pptPresentation As Presentation
Dim pptSlide As Slide
Dim pptShape As Shape
 newFilePath = InputBox("Podaj ścieżkę pliku z danymi", "Wybierz plik")
    If newFilePath = "" Then
        Exit Sub
    End If

Set pptPresentation = ActivePresentation

For Each pptSlide In pptPresentation.Slides

    For Each pptShape In pptSlide.Shapes

        If pptShape.Type = msoChart Then
                 pptShape.LinkFormat.SourceFullName = newFilePath
                 pptShape.LinkFormat.Update
        End If
    Next
Next

End Sub

Nie zadziałało. Pojawia się idiotyczny komunikat:

A potem nie da się ani zaznaczyć danych, ani odświeżyć...

Jednak zadziałało. Coś z kompem było nie halo...
Dzięki.