XL 2016 Insérer Graph Excel dans Powerpoint VBA

Kaizers · 23 Août 2023

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

VB:

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 · 24 Août 2023

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...

VB:

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+++

XL 2016 Insérer Graph Excel dans Powerpoint VBA

Kaizers

XLDnaute Occasionnel

Zon

XLDnaute Impliqué

Discussions similaires