Bom dia.

Preciso muito de ajuda, aqui na minha área temos um acompanhamento real time dos resultados de vendas, esse acomp é feito da seguinte forma:

Uma macro fica baixando relatórios do SAP de min a min e atualizando o Excel.

Ja uma outra macro fica no PPT passando Slide e atualizando os vínculos.

O Problema esta nessa macro que atualiza os Vínculos, alguns não são atualizados e ela trava varias vezes ao dia.

Alguém consegue me ajudar?

Segue código que utilizo hoje:

Sub Apresenta()
    
    On Error GoTo Vai
    
Vai:
x = 0

Dim osld As Slide
Dim oshp As Shape
    
    
    Do While x < 100000
           
    x = x + 1
   
    Dim SSW As Long
    Dim SSW2 As Long
    
    SSW = 0
    SSW = SlideShowWindows(1).View.CurrentShowPosition
    
    If SSW = 32 Then
    SSW2 = 32
    
    Else
    
    SSW2 = SlideShowWindows(1).View.CurrentShowPosition + 1
                
    End If
                    
         
       
        For Each oshp In ActivePresentation.Slides(SSW2).Shapes
        
            If oshp.Type = msoLinkedOLEObject Then
            oshp.LinkFormat.Update
              
           End If
        Next oshp
    
        
        SlideShowWindows(Index:=1).View.Next
        
        Sleep (8000)
        
        GoTo fim2:
        
               
        
        For Each oshp In ActivePresentation.Slides(SSW2).Shapes
        
            If oshp.Type = msoLinkedOLEObject Then
                
           
                oshp.LinkFormat.Update
              
           End If
        Next oshp
           
        SlideShowWindows(Index:=1).View.Next
        
        Sleep (28000)
        
        GoTo fim2:
        
fim2:
 
        Loop
        
   
    End Sub