Sub insertionGraphiqueDansPowerPoint()
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte
Path = ThisWorkbook.Path
Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True
Set PptDoc = PPT.Presentations.Open(Path + ":Maprésentation.ppt") 'ouverture fichier ppt
ActiveSheet.ChartObjects("C0").Copy 'copie du Graphique 'C0'de la feuille active
PptDoc.Slides(3).Shapes.Paste 'collage dans le Slide3 du document Power Point
'compte le nombre de shapes dans le 3eme slide
'le dernier objet inséré correspond à l'index le plus élevé
'NbShpe = PptDoc.Slides(3).Shapes.Count
With PptDoc
With .Slides(3).Shapes(.Slides(3).Shapes.Count)
.IncrementTop 1
.IncrementLeft -20
Haut = .Top
Gauche = .Left
End With
MsgBox Haut
MsgBox Gauche
.Save 'sauvegarder les modifications
.Close 'fermer le document ppt
End With
PPT.Quit 'fermer l'application powerPoint
End Sub