Discussion :

[Marneus22]

Bonjour,

Voilà mon projet : A l'aide d'une Macro, je souhaite insérer des graphiques (créés sous Excel) dans un PPT...

Dans la macro, j'appelle un ppt dans lequel j'ai créé un masque pour les slides... J'arrive à intégrer le graphique dans la diapo , mais par contre, je n'arrive pas à placer le graphique dans une des différentes "zones textes/graphiques" du masque.

Quelqu'un saurait-il me venir en aide ?

Un grand merci !

[Marneus22]

Pour votre information,

voici le code que j'ai réalisé me permettant de copier coller un graph excel qu'on selectionne avant et de le coller sous la slide 4 de ppt :

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
Sub graphtest()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open(Filename:="C:\Users\ ... \Test.pptx")
 
 
 
With PptDoc
 
    'copie le graphique selectionné contenu dans la feuille Excel 
     ActiveChart.ChartArea.Copy
 
   'collage dans la 4eme diapositive  
   PptDoc.Slides(4).Shapes.Paste
 
 
 
'Sauvegarde la présentation
'dans le meme répertoire que le classeur excel contenant la macro.
PptDoc.SaveAs Filename:=ThisWorkbook.Path & "\" & "Presentation.ppt"
'ferme la presentation
PptDoc.Close
'ferme powerpoint
PptApp.Quit
 
End With
 
End Sub

Merci d'avance pour votre aide.