Attribution d'un code et export jepg

**Cilou38** · 03/02/2009, 17h07

Bonjour à tous,

Je souhaiterais attribuer un code à chacune de mes diapos dans powerpoint et exporter ces diapos avec ce même code au format jpeg ?

Merci bien

Invité · 03/02/2009, 17h09

Bonjour

Je pense que cela devrait t'intéresser :
Réaliser un complément PowerPoint pour extraire les images d'une présentation

Philippe

**Cilou38** · 03/02/2009, 17h17

Merci... j'essaye tout de suite !!

Invité · 03/02/2009, 17h22

j'ai pas fait attention, ce que je t'ai proposé n'extrait que les images, si j'ai bien compris, c'est la diapo que tu veux extraire en jpeg en entier, c'est cela ?

**Cilou38** · 03/02/2009, 17h34

En fait oui c'est bien la totalité de la diapo que je veux extraire...

Invité · 03/02/2009, 18h22

OK

Donc par le code dans la FAQ PowerPoint

Comment sauvegarder une diapositive en JPEG ?

Manuellement

PowerPoint 2002 à 2003 : Fichier/Enregistrer sous et choisir le format
PowerPoint 2007 : Bouton Office/enregistrer Sous/Autre format, et là tu choisis.

Philippe

**Cilou38** · 04/02/2009, 09h25

Bonjour,

Merci pour votre dernier lien... mais pour compléter ma demande voici une capture d'écran depuis powerpoint. En fait comme vous pouvez le voir chaque diapo possède un nom et c'est ce nom que j'aimerais récupérer à l'export pour renommer les jpeg.

Merci bien

Invité · 04/02/2009, 10h42

Bonjour

Tes diapos ne possèdent pas vraiment un nom, c'est le ce qu'il y a dans les zones de texte de titre, est-ce que c'est bien cela ?

Philippe

**Cilou38** · 04/02/2009, 11h01

Oui, c'est vrai... Description du problème : J'ai un fichier ppt avec plus de 200 diapos, chaque diapo a un titre (cf dernière pièce jointe) et j'aimerais que chaque diapo soit exporter séparément en jpeg avec le titre qui lui est attribué.

reMerci !

Invité · 04/02/2009, 11h08

Ok

Essayes cela :

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
Public Sub test()
    Dim sld As Slide
    Dim shp As Shape
    Dim strTitre As String
 
    Dim i As Integer
    For Each sld In Application.ActivePresentation.Slides
        For Each shp In sld.Shapes
            'If sld.Shapes.HasTitle Then
                strTitre = sld.Shapes(1).TextFrame.TextRange.Text
                ActivePresentation.Slides(sld.Name).Export "C:\Users\Philippe\Desktop\test\" & strTitre & ".jpg", "JPG"
            'End If
        Next shp
    Next sld
End Sub

Cela met l'ensemble dans un dossier test de mon bureau, à toi d'adapter.

Tu colles ce code dans un module de l'éditeur vb, tu mets le curseur à l'intérieur et tu appuis sur la touche F5.

J'ai testé sur 3 diapos, cela peut-être long.

Le code n'est pas optimisé, c'est un premier jet, il y a sûrement mieux.

Philippe

**Cilou38** · 04/02/2009, 11h44

Super, je viens de tester ce code sur une sélection est cela fonctionne !

Merci

Mais dernier détail : les jpeg exportés ont une résolution trop faible pour nos besoins. J'ai alors essayé de passer par ExportBipmapResolution et forcemment cela fonctionne sur du Bipmap ! avez-vous une solution ?

Merci pour tout