IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA PowerPoint Discussion :

Macro POWERPOINT pour enregistrer chaque diapo en PDF


Sujet :

VBA PowerPoint

  1. #1
    Candidat au Club
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    novembre 2020
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 52
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs

    Informations forums :
    Inscription : novembre 2020
    Messages : 2
    Points : 2
    Points
    2
    Par défaut Macro POWERPOINT pour enregistrer chaque diapo en PDF
    Bonjour,
    Avez-vous déjà créé une macro qui enregistrerait chaque diapositive de Powerpoint dans des fichiers PDF séparés?
    J'en ai trouvé pour Word et Excel mais pas pour Powerpoint....
    Merci de votre aide !

  2. #2
    Expert éminent sénior

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    5 795
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 5 795
    Points : 14 303
    Points
    14 303
    Billets dans le blog
    38
    Par défaut
    Citation Envoyé par Haribolechat Voir le message
    Bonjour,

    Testez ce code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
     
    Sub ImprimerLesSlidesEnPdf()
     
    Dim I As Integer
    Dim RepertoireDeDestination As String, NomDuFichierPdf As String, NomPresentation As String
     
     
       With ActivePresentation
     
            NomPresentation = Mid(.Name, 1, Len(.Name) - 5)
            RepertoireDeDestination = .Path & "\" & NomPresentation & " " & Format(Now, "yyyy-mm-dd")
     
            For I = 1 To .Slides.Count
                .Slides(I).Select
                NomDuFichierPdf = RepertoireDeDestination & " slide " & Format(I, "00") & ".pdf"
                .ExportAsFixedFormat Path:=NomDuFichierPdf, fixedformattype:=ppFixedFormatTypePDF, RangeType:=ppPrintCurrent
            Next I
     
        End With
     
    End Sub
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

Discussions similaires

  1. [PowerShell] Macro pour enregistrer chaque diapo en PDF
    Par Haribolechat dans le forum Scripts/Batch
    Réponses: 1
    Dernier message: 24/11/2020, 09h30
  2. Réponses: 2
    Dernier message: 07/10/2017, 14h39
  3. [XL-2003] Macro SIMPLE pour enregistrer une FEUILLE en PDF?
    Par nduverger dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 07/11/2014, 12h46
  4. Réponses: 2
    Dernier message: 03/10/2012, 16h39
  5. Macro powerpoint pour ouvrir un pdf
    Par jofdm dans le forum VBA PowerPoint
    Réponses: 1
    Dernier message: 19/04/2011, 18h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo