Обновление ссылок Excel в презентации PPT

Question

У меня есть презентация PPT с ~ 50 графиками. Данные для каждой диаграммы связаны с книгой Excel.

Мне нужно изменить ссылки для каждой диаграммы с G: FILEPATH на C: FILEPATH. Чтобы сделать это вручную, я бы «Редактировать данные в Excel» для каждой диаграммы, а затем «Редактировать ссылки» для каждой диаграммы.

Я нашел некоторый код VBA, но я думаю, что он ищет ссылки Excel, где моих данных нет. Я думаю, что тип формы неправильный.

Sub EditPowerPointLinks()

Dim oldFilePath As String
Dim newFilePath As String
Dim pptPresentation As Presentation
Dim pptSlide As Slide
Dim pptShape As Shape

'The old file path as a string (the text to be replaced)
oldFilePath = "String of\File Path\To Be Replaced\Excel File.xlsx"

'The new file path as a string (the text to replace with)
newFilePath = "String of\New File Path\Excel File 2.xlsx"

'Set the variable to the PowerPoint Presentation
Set pptPresentation = ActivePresentation

'Loop through each slide in the presentation
For Each pptSlide In pptPresentation.Slides

    'Loop through each shape in each slide
    For Each pptShape In pptSlide.Shapes

        'Find out if the shape is a linked object or a linked picture
        If pptShape.Type = msoLinkedPicture Or pptShape.Type _ 
        = msoLinkedOLEObject Then

            'Use Replace to change the oldFilePath to the newFilePath
            pptShape.LinkFormat.SourceFullName = Replace(LCase _
            (pptShape.LinkFormat.SourceFullName), LCase(oldFilePath), newFilePath)

        End If
    Next
Next

'Update the links
pptPresentation.UpdateLinks

End Sub