macro export graphique

[vatounet]

Salut à tous,

C'est un sujet récurant mais je n'ai pas trouvé la solution...
J'ai trouvé sur le net un bout de macro pour exporter un graph excel en format image vers un dossier :

Sub export()
'
Dim Graph As ChartObject
For Each Graph In Sheets(1).ChartObjects
Graph.Chart.export 'C:Temp' & Graph.Name & '.gif', 'GIF'
Next Graph
'
End Sub

J'essai de l'adapter à mon cas, sans trop de succés:

Dans mon cas l'action doit se passer sur la feuille 2, il n'y a qu'un seul graph et j'aimerai l'exporter en tant qu'image dans D:\\Mes documents\\Bases de donnees avec pour nom de fichier le titre du graphique et que le graph source (celui de la feuille excel) soit effacer.

Je me mélange pas mal les pinceaux avec activechart, charttitle, filename et export.

d'avance merci pour les astuces,

A+

Fred

 

[MichelXld]

bonjour Fred

tu peux tester

Dim Graph As ChartObject
Set Graph = Sheets(2).ChartObjects(1)
Graph.Chart.Export 'D:\\Mes documents\\Bases de donnees\\' & Graph.Name & '.gif', 'GIF'
Graph.Delete

bon week end
MichelXld

 

[vatounet]

Salut Michel,

Merci, sa marche nickel,
Mon projet progresse peu à peu, malgré des connaissances en macro et vba tres limité,
Une fois fini mon 'usine à graphique' j'enverrai tout ça sur le forum, je pense que cela interessera quelques personnes, et puis vu que je repique des bouts d'astuces à droite à gauche se sera un juste retour d'ascenseur.

bon we

Fred

 

[MichelXld]

rebonjour Frederic

merci pour ton message

si tu as besoin d'autres exemples pour ton projet , ce lien pourra peut etre t'aider

Lien supprimé


bonne soiree
MichelXld