Discussion :

[Cilou38]

Bonjour à tous,

J'avais déjà posté un message le 03 février 2009 sur le même sujet. A l'époque la solution qui m'avait été donnée fonctionnait d'où le message noté comme résolu.

Mais en réalité je rencontre le même problème... Voici ci-joint un exemple de fichier que je dois traiter.

et le code que Philippe Jochmans m'avait transmis :

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

Rappel de ce que je souhaite :

Le code ci-dessus fonctionne pour l'export mais les jpeg exportés n'ont pas le titre de la diapo correspondante et c'est ce que je recherche étant donné que le fichier possède 250 diapos.

Merci de vos compléments d'infos



Merci...

[Invité]

Bonjour

Le code que tu as donne au fichier jpg le nom qui apparait dans une zone de texte.

Regardes du coté de la propriété name du slide.

Philippe

[Cilou38]

Merci de votre réponse ... mais je ne sais pas ce à quoi cela correspond !

[Invité]

Re

En fait j'ai peut-être mal compris cela arrive.

Quand tu parles du titre de la diapo, c'est la zone de titre qui est dans le format de celle-ci ? Ou une zone de texte quelconque ?

Philippe

[Cilou38]

Oui pour le titre dans le format de celle-ci... si c'est plus simple voici une capture d'écran de ce que je souhaiterais

merci

[Invité]

OK

Essayes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub test()
    Dim sld As Slide
    Dim shp As Shape
    Dim strTitre As String
 
    For Each sld In Application.ActivePresentation.Slides
        For Each shp In sld.Shapes
            If sld.Shapes.HasTitle Then
                strTitre = sld.Shapes.Title.TextFrame.TextRange.Text
                ActivePresentation.Slides(sld.Name).Export "C:\Users\Philippe\Desktop\test\" & strTitre & ".jpg", "JPG"
            End If
        Next shp
    Next sld
End Sub

Philippe

[Cilou38]

Super ! Merci beaucoup de ce code qui fonctionne à merveille C'est pour moi un gain de temps important.

Cependant, juste un complément quant à la définition/qualité du jepg. Comment améliorer la qualité du jpeg final ?

Encore merci !

[Invité]

Re

Cependant, juste un complément quant à la définition/qualité du jepg. Comment améliorer la qualité du jpeg final ?

Je t'avoue que j'en ai aucune idée (je suis honnête, je ne connais pas tout).

Car à aucun moment dans la commande on ne parle de qualité, désolé.

Philippe

[Cilou38]

Ce n'est pas si grave et merci quand même tu m'as déjà beaucoup aidé

[Cilou38]

Bonjour,

Pour Info : j'ai réussi à exporter les jpeg dans une bonne qualité en ajoutant à la ligne de code

Code :

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

ActivePresentation.Slides(sld.Name).Export "C:\Users\Philippe\Desktop\test\" & strTitre & ".jpg", "JPG", 2000, 275

ce qui correspond à déterminer le nombre de pixels souhaités pour le jepg.

Voilou !