Sub ExportSlidesAsPNG()
    Dim Slide As Slide
    Dim slideIndex As Integer
    Dim savePath As String
    Dim folderPath As String
    Dim resolutionChoice As Integer
    Dim quality As Integer
    
    ' Otevření dialogu pro výběr složky pro uložení
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Vyberte složku pro uložení obrázků"
        If .Show = -1 Then
            folderPath = .SelectedItems(1)
        Else
            MsgBox "Nebyla vybrána složka", vbInformation, "Chyba"
            Exit Sub
        End If
    End With
    
    ' Výběr kvality exportu
    resolutionChoice = MsgBox("Vyberte kvalitu exportu (OK = Vysoká, Zrušit = Nízká)", vbOKCancel + vbQuestion, "Výběr kvality")
    
    ' Určení kvality
    If resolutionChoice = vbOK Then
        quality = 1
    Else
        quality = 0
    End If
    
    ' Nastavení exportu na základě vybrané kvality
    If quality = 1 Then
        ' Uložení snímků s vysokým rozlišením (standardní nastavení)
        For slideIndex = 1 To ActivePresentation.Slides.Count
            Set Slide = ActivePresentation.Slides(slideIndex)
            Slide.Export folderPath & "\Slide_" & slideIndex & "_highQuality" & ".png", "PNG"
        Next slideIndex
    Else
        
        ' používáme například menší velikost okna při exportu
        For slideIndex = 1 To ActivePresentation.Slides.Count
            Set Slide = ActivePresentation.Slides(slideIndex)
            Slide.Export folderPath & "\Slide_" & slideIndex & "_lowQuality" & ".png", "PNG", 320, 180 ' Nižší rozlišení
        Next slideIndex
    End If
    
    ' Zobrazení zprávy o úspěšném exportu
    MsgBox "Všechny snímky byly úspěšně exportovány jako PNG.", vbInformation, "Hotovo!"
End Sub

