Power Point 1 PPS de 10 pages -> 10 PPS d'1 page

[tuti]

bonjour,
j'ai un diaporama Powerpoint que je souhaiterais découper en autant de fichiers qu'il y a de pages

peux on,rapidement, scinder un diaporama en fichier distinct ?

pour les PDF, il existe PDFSam
existe t'il la même chose pour les logiciels de MS


merci

 

[kiki29]

Salut, voir ici ( pas testé )

 

[Staple1600]

Bonjour le fil

Selon les besoins, tu peux aussi exporter chaque slide en jpg
[de mémoire]
1) Fichier/Enregistrer sous
2) Autre Format
3) choisir JPG
4) Et quand un message d'alerte apparait, choisir
Toutes les diapositives

Un dossier sera créé où tu trouveras chaque diapo exportée en jpg.

 

[tuti]

merci pour les réponses

pour la méthode de @kiki29 , je ne connais ni le VBA ni l'anglais
sauf si tu a la patience de traduire le sujet en FR

pour la méthode de @Staple1600 , je souhaite récupérer mes slides une par une
et non une image Jpg

 

[kiki29]

pour la méthode de @kiki29 , je ne connais ni le VBA ni l'anglais
sauf si tu a la patience de traduire le sujet en FR

Re, sûrement pas, n'étant pas un adepte du "tout cuit" , à toi de t'y mettre, tu te prives de 90% des ressources qui sont en Anglais. Le code suivant donne ceci :

Option Explicit

Sub ExportDiapos()
Dim oTempPres As Presentation
Dim sFileName As String
Dim x As Long, y As Long

    For x = 1 To ActivePresentation.Slides.Count
        sFileName = ActivePresentation.Path & "\" & "Slide_" & x & ".pptx"
        ActivePresentation.SaveCopyAs sFileName

        Set oTempPres = Presentations.Open(sFileName, , , False)

        For y = (x + 1) To oTempPres.Slides.Count
            oTempPres.Slides(x + 1).Delete
        Next y

        For y = 1 To x - 1
            oTempPres.Slides(1).Delete
        Next y

        oTempPres.Save
        oTempPres.Close
    Next x
End Sub