Export graphs sous PowerPoint

[joshua12]

Bonjour,
Je cherche à faire un export de mes graphs Excel, sous PowerPoint.

Voici une partie de mon code :

Sheets(NomFeuilleXLS).Select
  ActiveSheet.ChartObjects(NomGraph).Activate
  ActiveChart.ChartArea.Select
  ActiveChart.ChartArea.Copy
  'With Pres.Slides(NumSlide).Shapes.Past
  With Pres.Slides(NumSlide).Shapes.PasteSpecial(ppPasteJPG, msoTrue, "New JPG")
   .Top = iTop
   .Left = iLeft
  End With

Au départ j’ai utilisé la méthose past (ligne en commentaire dans mon code). Mais cette méthode a pour effet de reprendre tous les onglets de mon fichier Excel. Ce qui, dans mon cas précis, est un problème car celui-ci fait 20 Mo ! Qu’elle est la meilleure solution, en utilisant pastespecial, pour que mon fichier PowerPoint soit le plus petit possible ? (JPG ou autre ?)
Et quel en serait le code ? Je n’arrive pas à bien paramétrer pasteSpecial.

Merci d’avance pour votre aide

 

[chris]

Re : Export graphs sous PowerPoint

Bonjour
Tout copier/coller d'Excel à Powerpoint copie l'intégralité du classeur même si on ne voit que 2 cellules.
Il faut utiliser coller avec liaison : seul le lien est enregistré mais pas le classeur.
Avantage : toute modification dans le classeur Excel est répercuté dans le powerpoint.
Inconvénients :
dans certains cas on veut figer le powerpoint même si le classeur évolue.
il faut garder les 2 fichiers ensemble et de préférence dans le même dossier.

 

[joshua12]

Re : Export graphs sous PowerPoint

Mais si je fais mon copier-coller à "la main" mon fichier powerpoint a une taille très très réduite (- de 1 MO) alors que si je le fais en VBA, celui-ci fait à peu près la même taille que le fichier Excel (20 Mo). Qu'elle méthode est utilisée dans le cas d'un Ctrl+C, Ctrl+V du coup ?