JOAO THIAGO DE SOUZA SILVA

Pessoal O cenário é o seguinte, estou criando um Dashboard, e nele a alimentação das informações partem de algumas planilhas em excel vinculadas ao PowerPoint a qual esta rodando nas TVs, para que o PowerPoint atualize eu preciso pressionar o botão do PowerPoint de "atualizar dados" com isso parando a apresentação para atualizar, esse é o problema quero que essas informações sejam atualizadas sem intervenção. Olhando na internet pude ver um código que parcialmente esta funcionando, consegue atualizar as informações sem parar as apresentações, mas o problema que mesmo ele funcionando ele precisa ser executado, tentei colocar o método OnTime no macro em questão mas o Powerpoint não aceita este método, então fiquei de novo na mão sem saber como colocar esse macro para auto atualizar. abaixo segue o código inicial do update das informações: 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 = "C:\Users\SUPORTE\Downloads\dashboard\trabalho.xlsx" .AutoUpdate = ppUpdateOptionAutomatic .Update End With End If Next j Next i End Sub ------------------------------------------------------------------------------------------- esta é a função que não funciona e poderia solucionar meu problema. Sub hora() 'Loop' Call Application.OnTime(Now + TimeValue("00:00:10"), "hora") End Sub