Updating PowerPoint links

[femma]

Hi!

I'm working with a PowerPoint that consists of links to an Excel-file. I would like the PowerPoint to ask every time from which Excel-file to take the links from. This because I have multiple Excel files that are the exact same, but with different names.
I found this (Change Source for Links to Excel charts from PowerPoint), but it doesn't work in my case.

Thank you very much

 

[femma]

Does someone know, why my code is not working, I've been struggling with this a loooong time now :D

Sub changeLinkTargets()

Dim pptSlide As Slide
Dim pptShape As Shape

Dim oldString As String
oldString = " C:\Users\viem152\Desktop\TYÖKALU8.7.xlsm"
Dim newString As String
newString = "C:\Users\viem152\Desktop\SVERIGE.xlsb"

For Each pptSlide In ActivePresentation.Slides
    For Each pptShape In pptSlide.Shapes
        If pptShape.Type = msoLinkedOLEObject Or pptShape.Type = msoLinkedPicture Then
            With pptShape.LinkFormat
                If InStr(1, UCase(.SourceFullName), UCase(oldString)) Then
                    .SourceFullName = Replace(.SourceFullName, oldString, newString)
                End If
            End With
        End If
    DoEvents
    Next pptShape
DoEvents
Next pptSlide
    DoEvents
    

End Sub

My links to the Excel file are PasteSpecial links.

Thank you for your help!

 

[mooseman]

The instring function returns a integer of where the string is found to start and 0 if it isnt found.
Your line

[COLOR=#333333]If InStr(1, UCase(.SourceFullName), UCase(oldString)) Then[/COLOR]

Should be

[COLOR=#333333]If InStr(1, UCase(.SourceFullName), UCase(oldString)) > 0 Then[/COLOR]

This will evaluate to True or False and then make the if statement work for you
I don't believe it ever gets evaluated to true and change the sourcefile.