Private Sub CommandButton1_Click()
    Dim waitTime As Integer
    Dim Slide As Slide
    Dim loopEnabled As Boolean

    ' Uren zvolenho asu
    If OptionButton1.Value Then
        waitTime = 1
    ElseIf OptionButton2.Value Then
        waitTime = 2
    ElseIf OptionButton3.Value Then
        waitTime = 3
    ElseIf OptionButton4.Value Then
        waitTime = 4
    Else
        MsgBox "Vyberte as!", vbExclamation, "Chyba"
        Exit Sub
    End If

    ' Nastaven asu pechodu pro vechny snmky
    For Each Slide In ActivePresentation.Slides
        Slide.SlideShowTransition.AdvanceOnTime = msoTrue ' Nastaven na pravu asovch pechod
        Slide.SlideShowTransition.AdvanceTime = waitTime ' Nastaven asu pechodu
    Next Slide

    ' Nastaven smyky prezentace
    loopEnabled = CheckBox1.Value
    With ActivePresentation.SlideShowSettings
        .LoopUntilStopped = loopEnabled
        .AdvanceMode = ppSlideShowUseSlideTimings ' Ujist se, e se pouij nastaven asy
    End With

    ' Uloen nastaven prezentace
    ActivePresentation.Save

    ' Pokud prezentace b v reimu slideshow, zastavit ji a znovu spustit
    If Not ActivePresentation.SlideShowWindow Is Nothing Then
        ActivePresentation.SlideShowWindow.View.Exit
        ActivePresentation.SlideShowSettings.StartingSlide = 1 ' Restart od prvnho snmku
        ActivePresentation.SlideShowSettings.EndingSlide = ActivePresentation.Slides.Count
        ActivePresentation.SlideShowSettings.Run
    End If

    ' Zprva o dokonen nastaven
    MsgBox "asovn nastaveno na " & waitTime & "s." & vbNewLine & _
           "Smyka: " & IIf(loopEnabled, "Zapnuta", "Vypnuta"), _
           vbInformation, "Hotovo"
End Sub
