Récupération Image Graphe Excel

[Omicron]

Bonjour à tous les membres du Forum.

Je me tourne vers vous pour savoir quelle serait la méthode plus adaptée (par macro) pour récupérer l'image d'un graphe imbriqué dans une feuille de calcul Excel et d'en faire un fichier JPEG par exemple ...

En vous remerciant par avance

Omicron

 

[BOCARAMEL]

Re : Récupération Image Graphe Excel

bonsoir omicron

essai ça

'référencé l'objet CurrentChart, le premier graphique
  Set CurrentChart = Sheets("feuil1").ChartObjects(1).Chart
' active le graphique (qui s'appelle "nom_du_grphique")
    Sheets("feuil1").ChartObjects("nom_du_grphique").Activate
    ActiveChart.ChartArea.Select
' attribution d'un nom pour l'export du graphique, dans le dossier courant du fichier
   Fname = ThisWorkbook.Path & "\temp4.jpeg"
  CurrentChart.Export Filename:=Fname, filtername:="jpeg"

cdlt
bocaramel

 

[Omicron]

Re : Récupération Image Graphe Excel

Bonsoir Bocaramel,

Merci pour ta réponse. Tout fonctionne correctement.

Seul Pb peut-être l'image produite est de qualité assez médiocre par rapport à l'originale (que ce soit en Jpg ou en Png).

Je vais chercher ...

Bye, et merci encore ...

 

[MJ13]

Re : Récupération Image Graphe Excel

Bonjour

Peut-être augmenter la taille du graph ou du zoom avant copiage.