[XL-2010] Macro : Insertion Graph Excel sous zone texte PPT

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:

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.