Atualizar PowerPoint com Apresentação Rodando (Dashboard)

[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