[PPT-2007] Fichier d'échange JPEG

[michel.laborie]

Après avoir construit un diaporama sous Power Point 2007, je désire générer un "fichier d'échange de type JPEG" pour chaque diapositive de celui-ci.
(Commande "Enregistrer sous" puis, type de fichier : "fichier d'échange JPEG")
Le mot utilisé pour la génération est automatiquement "DiapositiveXXX".
Je souhaiterais changer ce mot par un autre personnalisant les photos générées, par exemple : "FlorenceXXX" pour des photos d'un fichier d'échange sur Florence.
Cela est-il possible ? Merci.

[Sepia]

Bonjour Michel.Laborie et bienvenue sur DVP.com

Je ne crois pas que PPT offre cette possibilité. Désolé.

En plus du présent forum, de nombreuses ressources sont à ta disposition :
- une FAQ
- des tutoriaux
- des critiques de livres

Si tu as d'autres demandes, n'hésite pas à nous solliciter, nous essayerons d'y répondre (cette fois-ci ).

A bientôt

[Philippe JOCHMANS]

Bonjour

Voici un exemple sur lequel tu peux t'appuyer.

Le code est à mettre dans un module de ta présentation, et tu mets le curseur à l'intérieur et tu clique sur la touche F5.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub ExportDiapoImage()
 
    'déclaration
    Dim objPres As Presentation     ' pour nommer la présentation active
    Dim strDest As String           ' pour le répertoire de destination
    Dim strNomImage As String       ' non de l'image
    Dim i As Integer
 
    ' affectation
    Set objPres = Application.ActivePresentation
    strDest = "C:\Users\Developpement\Desktop"
 
    ' exportation
    For i = 1 To objPres.Slides.Count
        strNomImage = InputBox("Quel nom voulez vous donner à la diapositive " & i & " ?", "Nom de l'image")
        objPres.Slides(i).Export strDest & "\" & strNomImage & ".jpg", "JPG"
    Next i
 
 
End Sub

Bien sûr, ceux-ci n'est qu'un exemple, mais te montre que l'on peut exporter au format JPG en nommant les images.

Philippe

[Sepia]

Salut michel.laborie

Désolé, je n'ai répondu que pour l'interface de PPT qui ne le permet pas. Mais en VBA, il y a beaucoup plus de possibilités (mais pour PPT, je n'ai pas le réflexe ).

@+