Discussion :

[hoaxpunk]

Bonjour,

Voila j'ai généré bcp de fichier XLS avec des graphes, tableaux et tout, et maintenant je voudrais mettre ces graphes/tableaux dans une présentation ppt.

- est il plus facile dans excel d'ouvrir un template ppt pour y coller les objets xls ou dans ppt d'ouvrir un fichier xls pour rapatrier les objets ?
- comment identifier les objets xls et les objets ppt (objet a copier et objet ou le coller) ?


merci pour vos reponses

[mamid1706]

Je veux créer des graphes sous PowerPoint ou exporter des graphes Excel dans un fichier PowerPoint.

Je ne trouve rien.

Bonjour,

Voila j'ai généré bcp de fichier XLS avec des graphes, tableaux et tout, et maintenant je voudrais mettre ces graphes/tableaux dans une présentation ppt.

- est il plus facile dans excel d'ouvrir un template ppt pour y coller les objets xls ou dans ppt d'ouvrir un fichier xls pour rapatrier les objets ?
- comment identifier les objets xls et les objets ppt (objet a copier et objet ou le coller) ?


merci pour vos reponses

[Karoutcho!]

Personnellement j'ai exporté des graphes de Access vers Powerpoint mais je suppose que ça ne doit pas être fondamentalement différent. Voici le code que j'ai utilisé :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
    Dim ppapp As PowerPoint.Application
    Dim Presentation As PowerPoint.Presentation
 
    Set ppapp = CreateObject("Powerpoint.application")
 
    ppapp.Activate
 
    ' Ouverture du fichier modèle powerpoint, qui servira de base à la présentation
    Set Presentation = ppapp.Presentations.Open(CurrentProject.Path & "\template.ppt")
 
        With Presentation.Slides(5)
 
        ' partie spécifique à access, je ne sais pas comment récupérer un graphe à partir d'excel mais ça ne doit pas être bien sorcier ;)
 
            ' Ouverture du formulaire contenant le graphe
            DoCmd.OpenForm "Graph1", acPreview
            ' Copie du graphe
            Me.Application.Forms("Graph1")![OLEUnbound0].Action = acOLECopy
 
 
            ' On colle le graphe dans la présentation
            .Shapes.Paste
            ' Fermeture du formulaire contenant le graphe
            DoCmd.Close acForm, "Graph1"
 
            ' Déplaçage et redimensionnement du graphe
            .Shapes(4).Width = 500
            .Shapes(4).Height = 480
            .Shapes(4).Top = 30
            .Shapes(4).Left = 10
        End With

J'espère que ça pourra t'aider

[mamid1706]

Merci pour ton message.

En fait j'ai fini par trouvé.

Merci encore.

Personnellement j'ai exporté des graphes de Access vers Powerpoint mais je suppose que ça ne doit pas être fondamentalement différent. Voici le code que j'ai utilisé :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
    Dim ppapp As PowerPoint.Application
    Dim Presentation As PowerPoint.Presentation
 
    Set ppapp = CreateObject("Powerpoint.application")
 
    ppapp.Activate
 
    ' Ouverture du fichier modèle powerpoint, qui servira de base à la présentation
    Set Presentation = ppapp.Presentations.Open(CurrentProject.Path & "\template.ppt")
 
        With Presentation.Slides(5)
 
        ' partie spécifique à access, je ne sais pas comment récupérer un graphe à partir d'excel mais ça ne doit pas être bien sorcier ;)
 
            ' Ouverture du formulaire contenant le graphe
            DoCmd.OpenForm "Graph1", acPreview
            ' Copie du graphe
            Me.Application.Forms("Oceane1")![OLEUnbound0].Action = acOLECopy
 
 
            ' On colle le graphe dans la présentation
            .Shapes.Paste
            ' Fermeture du formulaire contenant le graphe
            DoCmd.Close acForm, "Graph1"
 
            ' Déplaçage et redimensionnement du graphe
            .Shapes(4).Width = 500
            .Shapes(4).Height = 480
            .Shapes(4).Top = 30
            .Shapes(4).Left = 10
        End With

J'espère que ça pourra t'aider

[annedeblois]

Bonjour,

Au fait, quelle est la solution que tu as trouvée? Nous aimerions bien que tu nous la partages. Merci.

EDIT - oups! merci de nous en avoir fait part.

[mamid1706]

Bonsoir,

En fait, j'ai créé une autre discussion à mon problème.

Le problème c'était que je ne trouvais pas la doc des classes POWERPOINT dans l'éditeur VBA. La solution à ça, c'etait d'ajouter cette doc dans Outils/Références.

Puis après vient le deuxième problème. Je ne trouvais pas un moyen de créer un graphe directement sur PowerPoint comme il est possible de le faire sur Excel. Mais il y a des fontions POWERPOINT qui permettent de copier un graphe sous Excel dans un fichier PowerPoint.

C'est ce que j'ai fait pour régler mon problème. Je ne sais pas si il y a une solution meilleure que celle-là.

Pour le code, on peut trouver des example en cherchant sur google.

Voilà.

[meumeu73.1]

bonjour

je viens d'ouvrir le même type de discussion, si ça peut aider :

http://www.developpez.net/forums/sho...d.php?t=466510

bonne journée