Private Sub CommandButton1_Click()
    Dim s As Slide
    Dim celkovyPocetSnimku As Integer
    Dim i As Integer
    
    Dim randomColor As Long

    ' Poet snmk v prezentaci
    celkovyPocetSnimku = ActivePresentation.Slides.Count
    
    ' Nastaven zpodn pro kad snmek
    For i = 1 To celkovyPocetSnimku
        Set s = ActivePresentation.Slides(i)
        
        
        s.SlideShowTransition.AdvanceOnTime = msoTrue
        s.SlideShowTransition.AdvanceTime = i
        
        ' Generovn nhodn barvy pro pozad snmku
        randomColor = RGB(Int((255 - 0 + 1) * Rnd + 0), Int((255 - 0 + 1) * Rnd + 0), Int((255 - 0 + 1) * Rnd + 0))

        ' Nastaven pozad snmku na nhodnou barvu
        s.Background.Fill.BackColor.RGB = randomColor ' Nastaven pozad
    Next i

    ' Po poslednm snmku nastavme, e prezentace pob v cyklu
    ActivePresentation.SlideShowSettings.LoopUntilStopped = msoTrue
    ' Spustme prezentaci
    ActivePresentation.SlideShowSettings.Run
End Sub

