Exportation graphiques avec mise en forme
Bonjour à tous,
j'ai créé une macro me permettant d'exporter des graphiques de Excel à PPT.
Cependant, je ne trouve pas comment copier/coller ces graphiques tout en conservant la mise en forme source.
Mon code :
Dim appPpt As Object
Dim Pptpre As Object
Dim nbshpe As Byte
Dim shpe As Object
Dim sld As Object
'-----------------------------------------------
Set appPpt = CreateObject("Powerpoint.Application")
appPpt.Visible = True
'--------------------------------------------------------
Set Pptpre = appPpt.Presentations.Open(Filename:="C:\Users\rkoenig\Desktop\Orange THD 100%\Modélisations Plans DO 2018\Maquette Slides DO 2018\Présentation test.pptx")
'--------------------------------------------------------
ActiveSheet.ChartObjects(1).Select
ActiveChart.ChartArea.Copy
Pptpre.Slides(14).Shapes.Paste
nbshpe = Pptpre.Slides(14).Shapes.Count
With Pptpre.Slides(14).Shapes(nbshpe)
.Left = 124.7
.Top = 167.2
.Width = 204.1
.Height = 147.11Des idées ? J'imagine qu'il suffit de remplacer l'action "Paste" par un "Paste" spécial mais je n'ai pas trouvé quoi indiquer
Merci à vous !
bonjour
pourquoi ne pas insérer un "objet" Excel dans PPT ?
VBA est inutile
Bonjour,
Je cherche à automatiser l'exportation de multiples graphiques (au final, j'aurai près de 600 exportations à faire, ce qui est difficile à faire à la main) sur une présentation ayant vocation à être partagée. C'est pourquoi j'ai besoin d'une macro VBA
600 ?
c'est illisible
il faut fournir un fichier que les utilisateurs vont consommer au clavier et souris (impossible sur papier)
pour ceci, faire des TCD et GCD
un jour tu passeras à Power BI Desktop gratuit
30 graphiques par présentation (sur des slides différents... évidemment), avec 20 présentations (données différentes mais même format/deck de slides)
c'est bien ce que je préconise : Power BI