Power Point - Actualizacion automatica de una presentacion

Sub Actualiza()

    Dim osld As Slide

    Dim oshp As Shape

    Application.DisplayAlerts = False

    For Each osld In ActivePresentation.Slides

        Call SetLinksToManual(osld)

    Next

    For Each osld In ActivePresentation.Slides

        For Each oshp In osld.Shapes

            If oshp.Type = msoLinkedOLEObject Then

               oshp.LinkFormat.Update

            End If

        Next oshp

    Next osld

    For Each osld In ActivePresentation.Slides

        Call SetLinksToAutomatic(osld)

    Next

    Application.ActivePresentation.UpdateLinks

    Application.ActivePresentation..SlideShowWindow.View.State = ppSlideShowRunning

    Application.DisplayAlerts = ppAlertsAll

    'Esta parte activara el código para que se auto ejecute cada 15 minutos (lease Timer)

    'Pero evalua si es lo que se quiere y se puede ...

    Application.DisplayAlerts = True

    Application.OnTime Now + TimeValue("00:15:00"), "Actualiza"

End Sub

Sub SetLinksToAutomatic(oSlideOrMaster As Object)

    Dim oShp As PowerPoint.Shape

    For Each oShp In oSlideOrMaster.Shapes

        If oShp.Type = msoLinkedOLEObject Then

            oShp.LinkFormat.AutoUpdate = ppUpdateOptionAutomatic

            oShp.LinkFormat.Update

        End If

    Next oShp

End Sub

Sub SetLinksToManual(oSlideOrMaster As Object)

    Dim oShp As PowerPoint.Shape

    For Each oShp In oSlideOrMaster.Shapes

        If oShp.Type = msoLinkedOLEObject Then

            oShp.LinkFormat.AutoUpdate = ppUpdateOptionManual

        End If

    Next oShp

End Sub