Boa noite!!

Não testado

Sub Teste()
    Dim i As Long
    Dim j As Long
    Dim sCount As Integer
    For i = 1 To ActivePresentation.Slides.Count
        For j = 1 To ActivePresentation.Slides(i).Shapes.Count
            If ActivePresentation.Slides(i).Shapes(j).Type = msoLinkedOLEObject Then
                With ActivePresentation.Slides(i).Shapes(j).LinkFormat
                    .SourceFullName = "I:Arquivo.xls"
                    .AutoUpdate = ppUpdateOptionAutomatic
                    .Update
                End With
            End If
        Next j
    Next i
End Sub

Sub Teste2() 
    Dim osld As Slide 
    Dim oshp As Shape 
    For Each osld In ActivePresentation.Slides 
        For Each oshp In osld.Shapes 
            If oshp.Type = msoLinkedOLEObject Then 
                oshp.LinkFormat.Update 
            Next oshp 
        Next osld 
    End Sub 

Leia:
http://www.pptfaq.com/FAQ00368_Automate ... so_on-.htm

Att

Boa noite Alexandre.
Primeiramente quero agradecer pela atenção e por ter se disponibilizado a me ajudar. Testei os códigos porem o primeiro apareceu erro de compilação: "for se next" e no segundo também apareceu erro de compilação: "next sem for". Peço desculpas pela minha ignorância mas não entendo nada sobre macro tenho pesquisado muito nas ultimas semanas para solucionar esse gap no trabalho. Se puder me ajudar meu amigo te agradeço muito.
Grande abraço.

Meu amigo Alexandre, retificando a mensagem anterior consegui colar os códigos inserindo um módulo direto no visual basic porem apareceu outra mensagem de erro: "erro em tempo de execução: '-2147467259(80004005)': o método 'sourceFullName do objeto 'LinkFormat' falhou".

Boa noite!!

Leia:
http://support.microsoft.com/kb/942385/pt-br

Att