Sub ZmenTextNaSnimku()
    Dim snimek As Slide
    Dim objekt As Shape
    Dim novyText As String
    Dim cisloSnimku As Integer
    ' Nastaven aktulnho snmku
    Set snimek = ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex)
    cisloSnimku = ActiveWindow.View.Slide.SlideIndex
    ' Zadn novho textu od uivatele
    novyText = InputBox("Zadejte nov text pro textov pole:", "Zmna textu")
    
    ' Prohledn vech objekt na snmku
    For Each objekt In snimek.Shapes
        ' Kontrola, zda je objekt textov pole
        If objekt.HasTextFrame Then
            If objekt.TextFrame.HasText Then
                ' Zmna textu v prvnm nalezenm textovm poli
                objekt.TextFrame.TextRange.Text = novyText
            End If
        End If
    Next objekt
    
    ' Potvrzen zmny
    MsgBox "Na snmku slo: " & cisloSnimku & vbCrLf & _
           "byl text zmnn na: " & novyText, vbInformation, "Vstup programu"
           
End Sub

