Game maken in PowerPoint

Onderstaande code heb je nodig bij video 5: resetten van dia’s

Selecteer onderstaande code en kopieer met Ctrl+C:

Option Explicit

' ====================================================
' ALGEMENE RESETFUNCTIE 
' ====================================================
Sub ResetNaarDia(diaNummer As Long)

    Dim ssw As SlideShowWindow
    
    ' Stop huidige diavoorstelling als die actief is
    If SlideShowWindows.Count > 0 Then
        SlideShowWindows(1).View.Exit
    End If
    
    ' Start diavoorstelling opnieuw
    ActivePresentation.SlideShowSettings.Run
    
    ' Wacht heel kort tot de slideshow actief is
    DoEvents
    
    ' Ga naar de gewenste dia
    If SlideShowWindows.Count > 0 Then
        Set ssw = SlideShowWindows(1)
        ssw.View.GotoSlide diaNummer
    End If

End Sub

' ====================================================
' RESET NAAR BEGIN-DIA
' ====================================================
Sub Reset_NaarBegin()
    ResetNaarDia 1
End Sub

' ====================================================
' RESET NAAR SPECIFIEKE DIA'S
' PAS DE GETALLEN AAN ALS JE NAAR ANDERE DIA'S WILT
' ====================================================

Sub Reset_Dia5()     'Pas de 5 aan als je naar een andere dia wilt
    ResetNaarDia 5   'En op deze regel dan ook de 5 aanpassen. 
End Sub

Sub Reset_Dia9()     'Pas de 9 aan als je naar een andere dia wilt
    ResetNaarDia 9   'En op deze regel dan ook de 9 aanpassen. 
End Sub