Creation de Powerpoint à partir d'Excel

Bonjour à tous,

J'ai besoin de votre aide sur la creation automatique de presentation powerpoint à partir d'Excel :

J'ai realisé un bout de code quio fonctionne trés bien :

Private Sub CommandButton7_Click()

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide


Set PPApp = CreateObject("Powerpoint.Application")

PPApp.Visible = True
Set PPPres = PPApp.Presentations.Add

For i = 1 To Sheets.Count

' blabla de code qui crait des slides et qui marche bien :)

next i
'Sauvegarde la présentation
'dans le meme répertoire que le classeur excel contenant la macro.
PPPres.SaveAs Filename:=ThisWorkbook.Path & "\" & "test" & Right(Sheets("SETUP").Range("D2").Value, 3)

'ferme la presentation
PPPres.Close

'ferme powerpoint
PPApp.Quit

Hors plutot que de creer un nouveau document je voudrai ouvrir un document ole (objet numero 10 dans mon cas page "SETUP") powerpoint déja present dans le classeur xls.

J'arrive bien à l'ouvrir avec une commande de type :

ActiveSheet.Shapes("Object 10").Select
Selection.Verb Verb:=xlOpen

mais je n'arrive pas à lier mes objets powerpoint et ce document vous pouvez m'aider SVP ?