XL 2016 Insérer Graph Excel dans Powerpoint VBA

  • Initiateur de la discussion Initiateur de la discussion Kaizers
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Kaizers

XLDnaute Occasionnel
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
 
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+++
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour