XL 2016 Insérer Graph Excel dans Powerpoint VBA

[Kaizers]

Hello tout le monde

Je bloque sur un truc, simplement à copier coller un graphique excel, et à le repositionner dans la slide mais ça ne fonctionne pas

Ca me colle bien le graphique mais le cadrage que je veux ne fonctionne pas

Sub Macro1()


Dim ppt As PowerPoint.Application
Dim pptdoc As PowerPoint.Presentation
Dim Nbshape As Byte
Dim nbshpe As Integer

 

 
Set ppt = CreateObject("Powerpoint.Application") 'creation session PowerPoint
ppt.Visible = True
Set pptdoc = ppt.Presentations.Open("K:\Finances\0 - Budgets\TEST.pptx") 'ouverture fichier ppt

ActiveSheet.ChartObjects("Graphique 1").CopyPicture xlScreen, xlBitmap 'copie du "Graphique 1" de la feuille active
pptdoc.Slides(2).Shapes.Paste 'collage dans le Slide6 du document Power Point
 
  With pptdoc.Slides(2).Shapes


        .Left = 150 'position horizontale dans le slide
        .Top = 100 'position verticale dans le slide
        .Height = 300 'hauteur image
        .Width = 400 'largeur image

End With

 

[Zon]

Salut,

Dans With pptdoc.Slides(2).Shapes il manque l'index du Shape ou son nom , on peut le connaitre en comptant le nombre de shapes . Comme tu crées un shape son index sera le dernier...

With pptdoc.Slides(2)
    with .Shapes(.shapes.count)
     
.Left = 150 'position horizontale dans le slide
        .Top = 100 'position verticale dans le slide
        .Height = 300 'hauteur image
        .Width = 400
    end with
end with

A+++