Sub PridatSnimky()
    Dim ppt As Presentation
    Dim snimek As Slide
    
    Set ppt = ActivePresentation
    Set snimek = ppt.Slides.Add(Index:=ppt.Slides.Count + 1, Layout:=ppLayoutText)
    
    MsgBox "Nov snmek byl pidn.", vbInformation
End Sub

Sub ZmenitBarvuPozadi(CisloSnimku As Integer, Barva As String)
    Dim ppt As Presentation
    Dim snimek As Slide
    Dim RGBBarva As Long
    
    Set ppt = ActivePresentation
    
    ' Oven, zda snmek existuje
    If CisloSnimku < 1 Or CisloSnimku > ppt.Slides.Count Then
        MsgBox "Zadan slo snmku neexistuje!", vbExclamation
        Exit Sub
    End If
    
    ' Piazen barvy podle nzvu
    Select Case LCase(Barva)
        Case "erven", "red": RGBBarva = RGB(255, 0, 0)
        Case "zelen", "green": RGBBarva = RGB(0, 255, 0)
        Case "modr", "blue": RGBBarva = RGB(0, 0, 255)
        Case "lut", "yellow": RGBBarva = RGB(255, 255, 0)
        Case "bl", "white": RGBBarva = RGB(255, 255, 255)
        Case "ern", "black": RGBBarva = RGB(0, 0, 0)
        Case Else
            MsgBox "Neplatn barva! Zvol dostupn barvy: erven, zelen, modr, lut, bl, ern.", vbExclamation
            Exit Sub
    End Select
    
    ' Nastaven barvy pozad
    Set snimek = ppt.Slides(CisloSnimku)
    snimek.FollowMasterBackground = msoFalse
    snimek.Background.Fill.BackColor.RGB = RGBBarva
    
    MsgBox "Barva pozad snmku " & CisloSnimku & " byla zmnna na " & Barva & ".", vbInformation
End Sub

Sub SmazatSnimky(CisloSnimku As Integer)
    Dim ppt As Presentation
    
    Set ppt = ActivePresentation
    
    ' Oven, zda snmek existuje
    If CisloSnimku < 1 Or CisloSnimku > ppt.Slides.Count Then
        MsgBox "Zadan slo snmku neexistuje!", vbExclamation
        Exit Sub
    End If
    
    ' Mazn snmku
    ppt.Slides(CisloSnimku).Delete
    MsgBox "Snmek slo " & CisloSnimku & " byl smazn.", vbInformation
End Sub


Private Sub CommandButton1_Click()
PridatSnimky
End Sub

Private Sub CommandButton2_Click()
If IsNumeric(TextBox1.Text) Then
    ZmenitBarvuPozadi TextBox1.Text, TextBox2.Text
    Else
    MsgBox "Nebylo zadno slo!", vbInformation
    End If

End Sub

Private Sub CommandButton3_Click()
If IsNumeric(TextBox3.Text) Then
    SmazatSnimky TextBox3.Text
    Else
    MsgBox "Nebylo zadno slo!", vbInformation
    End If
End Sub

