Private Sub TextBox1_Change()

End Sub

Private Sub Tlac1_Click()
' Pepnut na zadan snmek
ActivePresentation.SlideShowWindow.View.GotoSlide 1
End Sub

Private Sub Tlac2_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide 2
End Sub

Private Sub Tlac3_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide 3
End Sub

Private Sub Tlac4_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide 4
End Sub

Private Sub TlacPotvrdit_Click()

' Deklarace promnnch
Dim cisloSnimku As Integer
Dim pocetSnimku As Integer

' Zskn potu snmk v prezentaci
pocetSnimku = ActivePresentation.Slides.Count

' Oven zda bylo zadno slo
If Not IsNumeric(TextBox1.Text) Then
    MsgBox "Nezadali jste slo snmku!", vbExclamation, "Chyba"
Else
    cisloSnimku = CDbl(TextBox1.Text)
    
    ' Oven, zda slo nem desetinnou st
    If cisloSnimku = Int(cisloSnimku) Then
        cisloSnimku = CInt(cisloSnimku) ' Pevod na Integer
    Else
        MsgBox "Zadali jste desetinn slo! Zadejte pouze cel slo.", vbExclamation, "Chyba"
        Exit Sub
    End If
    If cisloSnimku >= 1 And cisloSnimku <= pocetSnimku Then
    
        ' Pepnut na zadan snmek
        ActivePresentation.SlideShowWindow.View.GotoSlide cisloSnimku
        
    Else
        MsgBox "Zadali jste neplatn slo snmku!", vbExclamation, "Chyba"
    End If
End If
End Sub