'création de l'objet PowerPoint
Set PptApp = CreateObject("Powerpoint.Application")
'ouverture de la présentation de référence
Set PptDoc = PptApp.Presentations.Open(chemin)
PptApp.Visible = True
'Ajoute une diapo à la fin de la présentation
Set Diapo = PptDoc.Slides.Add(Index:=PptDoc.Slides.Count + 1, Layout:=ppLayoutBlank)
'Copy du premier graphique issu du fichier excel
oWkb_base.Sheets.Item(2).Shapes("Effectifs").Copy
Diapo.Shapes.Paste
'Donne un nom au graphique copier pour identification
Diapo.Shapes(1).Name = "Nom"
'Positionne le graphique sur la diapo
Diapo.Shapes(1).Left = 50 'position horizontale dans le slide
Diapo.Shapes(1).Top = 200 'position verticale dans le slide