Recherche de l'emplacement à sauvegarder et du nom lors de l'exportation d'une diapositive PPT en PDF en mode diaporama.

Question

Je souhaite enregistrer une seule diapositive particulière au format PDF (ou au moins une image) en mode diaporama.

Je veux donner à l'utilisateur la possibilité de parcourir l'emplacement et de choisir le nom en utilisant la fonction de parcage par défaut. Je ne veux pas qu'il écrive le chemin.

    Dim ExportPath As String   ' drive:\path to export to
    Dim Pixwidth As Integer    '  size in pixels of exported image
    Dim Pixheight As Integer
    Dim oSlide As Slide

    ' Edit to suit
    Pixwidth = 1920    '  arbitrarily ... set whatever value you like here

    ' Set height proportional to slide height
    Pixheight = 1080

    ExportPath = ActivePresentation.Path & "\"

    Set oSlide = ActivePresentation.SlideShowWindow.View.Slide
    With oSlide
        .Export ExportPath & "Slide" & CStr(.SlideIndex) & ".JPG", "JPG", Pixwidth, Pixheight
    End With

J'ai trouvé le code sur le web et il fonctionne bien mais ne permet pas à l'utilisateur de parcourir l'emplacement et de choisir le nom.

J'ai alors utilisé le code suivant qui a fonctionné à merveille :

Dim CurrentSlide As Long
CurrentSlide = ActivePresentation.SlideShowWindow.View.Slide.SlideNumber
With ActivePresentation.PrintOptions
OutputType = ppPrintOutputSlides
End With

ActivePresentation.PrintOut

Cependant, cela ne fonctionne pas sur tous les appareils. Sur certains, le système ne reconnaît pas l'icône de l'appareil. PrintOut et dans d'autres, il est imprimé dans OneNote.

Est-il possible pour l'utilisateur de naviguer et de sauvegarder en tant que fichier .PDF (option d'exportation au lieu de l'option d'impression au cas où il n'aurait pas d'imprimante PDF) ?

Merci.

Answer 1

Application.FileDialog(msoFileDialogSaveAs).Show
Dim Location As String
Location = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)

Vous pouvez utiliser le code ci-dessus pour obtenir le chemin et le nom que l'utilisateur désire.

Ce code vous permettra d'exporter : ActivePresentation.ExportAsFixedFormat