copier un graphique excel dans power point

Bonjour,

Je viens de rejoindre ce site. J'y ai trouvé une macro me permettant de copier un graphique excel dans power point mais j'ai un message d'erreur au .left avec "erreur de compilation: Membre de méthodes ou de données introuvables" et je ne comprends pas.
Pouvez vous m'aider?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub copiegraphppt()
 
Dim ppt As PowerPoint.Application
Dim pptdoc As PowerPoint.Presentation
Dim Nbshape As Byte
 
Set ppt = CreateObject("Powerpoint.Application") 'creation session PowerPoint
ppt.Visible = True
Set pptdoc = ppt.Presentations.Open("I:\xxxx.ASO.pptx") 'ouverture fichier ppt
 
ActiveSheet.ChartObjects("Graphique 1").CopyPicture xlScreen, xlBitmap 'copie du "Graphique 1" de la feuille active
pptdoc.Slides(6).Shapes.Paste 'collage dans le Slide6 du document Power Point
 
With pptdoc.Slides(6)
.Left = 150 'position horizontale dans le slide
.Top = 100 'position verticale dans le slide
.Height = 300 'hauteur image
.Width = 400 'largeur image
End With
 
End Sub

Mille merci