XL 2013 Copier d'un excel a un ppt vba

[da silva]

Bonjour,

je bloque sur un exemple que je voudrais mettre en place, Je vous explique
je souhaiterais juste passer un graphique avec des données + un tableau (une sheet complete) qui se nome programme p - > sheet"synthese p" et le copier sur le ppt programme p.pptx sheet 2.

en regardant sur google je trouver des exemple mais pas avec avec le nom du graphie si vous avez une solution merci d'avance =) et si je la trouve je mettrais la solution!

 

[Multhani]

Bonjour,

Un bout de code à adapter si c'est ce que vous cherchez

'création de l'objet PowerPoint
            Set PptApp = CreateObject("Powerpoint.Application")
            'ouverture de la présentation de référence
            Set PptDoc = PptApp.Presentations.Open(chemin)
            PptApp.Visible = True
                              
            'Ajoute une diapo à la fin de la présentation
            Set Diapo = PptDoc.Slides.Add(Index:=PptDoc.Slides.Count + 1, Layout:=ppLayoutBlank)
            'Copy du premier graphique issu du fichier excel
            oWkb_base.Sheets.Item(2).Shapes("Effectifs").Copy
            Diapo.Shapes.Paste
            'Donne un nom au graphique copier pour identification
            Diapo.Shapes(1).Name = "Nom"
            'Positionne le graphique sur la diapo
            Diapo.Shapes(1).Left = 50 'position horizontale dans le slide
            Diapo.Shapes(1).Top = 200 'position verticale dans le slide

 

[da silva]

Merci, pour l'aide =) mais j'ai peut test cette exemple pour des tableaux mais la je vien de voir un erreur et toujours en boucle une idée? thanks

sur la ligne set diapo