1 slide in powerpoint updaten

Status
Niet open voor verdere reacties.

edwin13387

Gebruiker
Lid geworden
12 jun 2015
Berichten
46
Goede morgen,

Even geleden heb ik een vraag gesteld over het via VBA updaten van een powerpoint.
Uiteindelijk is deze code er uit gekomen:

Code:
Sub OnSlideShowPageChange()
    If elapsed = 0 Then elapsed = Timer
     'NOTE this is 15 SECONDS to test for 15 minutes use 900
    If Timer > elapsed + 10 Then
        elapsed = Timer
        Call UpdateLinks
    End If
End Sub
 
 
Sub OnSlideShowTerminate()
    elapsed = 0
End Sub
 
 
Sub UpdateLinks()
    Dim xlApp As Object
Dim xlWorkBook As Object
Set xlApp = CreateObject("Excel.Application")
If xlApp.workbooks.Open("I:\OEE\testbestand\presentatie\test.xlsx").ReadOnly = True Then
xlApp.workbooks.Close
Exit Sub
Else
With ActivePresentation
.UpdateLinks
End With
End If
xlApp.workbooks.Close

End Sub

Nu loopt het nog steeds vast, en dit zit hem in hoe powerpoint update denk ik.
Voor elke link wordt het bestand geopend, de data overgehaald en weer gesloten.
Per update vind dit dus +/- 15 keer plaats.
Echter enkel bij de 1e wordt gekeken of het bestand read-only is.

Ik vroeg me dus af of er een code is voor het updaten van 1 link, of updaten zonder het workbook conbtinue te sluiten.
Als ik hem in deze code niet sluit, komt er een error dat het bestand al open is.

mvg
Edwin
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan