Public Function SelectFolder(Optional ByVal DefaultPath As String) As String
' vyber adresare, do ktereho bude proveden export

    Dim fd As FileDialog    'dialog. okno pro vyber adresare
    
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)  'nastaveni typu dialogoveho okna
    With fd
        .ButtonName = "Vyber"  'nazev tlacitka
        .AllowMultiSelect = False  'zakaz vyberu vice adresaru
        .Title = "Vyberte adresar"  'nazev okna vyberu
        If Not (IsMissing(DefaultPath)) Then .InitialFileName = DefaultPath 'test na existenci cesty k defaultnimu adresari
        .Show  'zobrazeni dialogoveho okna
        On Error Resume Next    'uzivate nevybral adresar
            SelectFolder = .SelectedItems(1)  'vyber prvni polozky
        Err.Clear
        On Error GoTo 0  'ošetření chyby
    End With
    Set fd = Nothing  'destruktor
End Function

Sub SavePPTAsImage()
' procedura pro export snimku na obrazky

    Dim sImgPath As String  'cesta k souboru s obrazky
    Dim sImgName As String  'nazev obrazku
    Dim sPrefix As String   'nazev
    Dim oSlide As Slide     'slide
    
    On Error GoTo Err_ImgSave
        sImgPath = SelectFolder 'vyber adresare
        sPrefix = Split(ActivePresentation.Name, ".")(0)    'pocatecni nazev snimku
        For Each oSlide In ActivePresentation.Slides    'pro vsechny snimky
            sImgName = sPrefix & "-" & oSlide.SlideIndex & ".jpg"   'nazev obrazku, tj. nazev snimku-cislo snimku
            oSlide.Export sImgPath & "\" & sImgName, "JPG"  'export snimku
        Next oSlide
    
Err_ImgSave: 'nastala chyba
    If Err <> 0 Then
        MsgBox Err.Description 'vypis chyby
    End If
    
End Sub