Power Point enregistre image diapositive avec son nom

[jeffe]

Bonjour, est il possible d'enregistrer en .jpeg une diapositive (ou toutes) mais que chaque image ai le meme nom que la diapo? Aujourd'hui, chaque image se nomme Diapo 1, Diapo 2.....
merci

 

[fanch55]

Bonjour,
Un slide ( ou diapo ) powerpoint peut contenir plusieurs images .
Pour sauvegarder un slide en jpg et lui donner un nom particulier :
faire "fichier/Enregistrer sous" ou exporter
Puis dans la fenêtre où il vous est demandé le nom et le type de fichier, indiquez le nom que vous voulez et choisissez JPG.
Précisez ensuite que c'est le slide actif et non le ppt complet .
Vous devrez le faire pour chaque slide car, si vous choisissez de tout exporter, PPT nommera chaque Slide Diapo 1, etc ....

Sinon vous pouvez le faire par macro, cela vous intéresse-t-il ?

 

[jeffe]

Hello, bonsoir, oui effectivement enregistrer sous .... mais c'est long, de plus pour une application tierce je ne peux importer que des jpg ou png, mais en utilisant le nom de chaque diapo, j'aurai plus facile à les replacer. Donc oui, si une macro peut le faire cela m'intéresse bien, merci

 

[fanch55]

Ci-dessous la macro à inclure au code de votre ppt
Modifiez la valeur du Target avec le nom du dossier où vous voulez exporter les slides .
N'oubliez pas de renommer le ppt avec une extension .pptm pour pouvoir sauvegarder avec le code .
Chaque slide s'il a un titre sera sauvegardé en tant que celui-ci sinon il prendra le nom par défaut que Powerpoint lui a donné ....
Attention: donnez un titre qui soit également compatible avec un nom de fichier ( éviter les \ / += etc...)

Sub Exporter_Slides()
Dim Sld As Slide, Fname As String, Target As String
    Target = "D:\Users\........\Pictures\Jeffe"
 
    If Dir(Target, vbDirectory) = "" Then
        With Application.FileDialog(msoFileDialogFolderPicker)
            .AllowMultiSelect = False
            .Title = "Dossier ible des exportations"
            .InitialFileName = Target
            If .Show Then Target = .SelectedItems(1)
        End With
    End If
    If Dir(Target, vbDirectory) <> "" Then
        For Each Sld In ActivePresentation.Slides
            On Error Resume Next
            Fname = ""
            Fname = Sld.Shapes.Title.TextFrame.TextRange.Text
            If Fname = "" Then Fname = Sld.Name
            Sld.Export Target & "\" & Fname & ".jpg", "JPG"
        Next
        Shell "Explorer /root," & Target, vbNormalFocus
    End If

End Sub

 

[jeffe]

Hello, bonjour fanch55, le forum.
Merci beaucoup pour cette macro, et en prime je peux choisir l'emplacement , merci beaucoup pour ta réalisation, super.
Bonne journée
jf

 

[jurassic pork]

Hello,
que contiennent les diapos ? des photos ou plutôt du texte avec pas beaucoup de zone de photo ou d'images , c'est à dire avec beaucoup de plages de même couleur dans la diapo. Pourquoi je demande cela, c'est parce que si c'est plutôt du texte, le format png pourrait convenir pour la sauvegarde.
Ami calmant, J.P

 

[jeffe]

Hello, en fait j'ai en moyenne 3 photos, 6 zone de textes un titre et un numéro de page.
pour le moment le jpeg me convient ( ca prend un peut moins de place que le png)

 

[jurassic pork]

OK pas de souci tant que cela ne dégrade pas tes images.