Discussion :

[BBOUK]

Bonjour à tous,

J'ai un powerpoint de 200 slides qui comprennent chacune un titre. J'aimerais -via une macro- les extraire une par une, les sauver et les renommer selon leur titre. Ainsi, j'aurais 200 powerpoint d'une slide chacun, et non plus un ppt de 200 pages. J'ai trouvé un code sur ce forum qui permet d'exploser le ppt; voici le code

nb_slide = ActivePresentation.Slides.Count

For i = 1 To nb_slide
ActivePresentation.Slides(i).Export "explosion/slide_essai" & i, "ppt"
Next i

MsgBox "PowerPoint explosé, congratulation"

End Sub

Grâce à ce code, je peux avoir mes 200 fichiers dans le dossier que je veux.
Mais, il ne permet d'enregistrer les slides seulement sous des noms génériques tels que Slides 1, Slide 2 etc..
Ayant de grosses lacune en VBA, je n'ai pas réussi à trouver la solution tout seul.


Je vous remercie d'avance pour votre aide

BBOUK

[QuestVba]

Bonjour,

Voici un bout de code à adapter à ton cas. Il permet de parcourir les diapos et de récupérer le titre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 ' on parcourt les diapos pour récupérer les informations des titres
    For i = 1 To ActivePresentation.Slides.Count
        Set sld = ActivePresentation.Slides(i)
        ' on test s'il y a une zone de titre
        If sld.Shapes.HasTitle Then
            strTable = strTable & vbCrLf & sld.Shapes.Title.TextFrame.TextRange.Text
        End If
    Next i