roro59650
Messages postés99Date d'inscriptionvendredi 20 avril 2007StatutMembreDernière intervention28 juillet 2011
-
23 mai 2007 à 11:57
roro59650
Messages postés99Date d'inscriptionvendredi 20 avril 2007StatutMembreDernière intervention28 juillet 2011
-
23 mai 2007 à 16:24
Bonjour,
je cherche depuis plusieurs heures sur internet pour trouver comment exporter un graphique d'excel en image Gif.
J'ai réussi a pondre ce code (enfin, copier coller d'un ensemble de code) :
Sub ExportExcel()
Dim NomComplet As Variant, LeChart As Variant
Dim i As Byte
Dim NomChart As Variant
For Each LeChart In ActiveSheet.ChartObjects
i = i + 1
NomChart = "Graphique " & i
ActiveSheet.ChartObjects(i).Activate
NomComplet = Application.GetSaveAsFilename("C:\Chemin" & NomChart & ".gif", "Fichiers GIF (*.gif), *.gif")
ActiveChart.Export NomComplet, "GIF"
Next
End Sub
Elle marche bien, sauf qu'une fenetre s'ouvre a chaque graphe pour demander le nom (pré-écrit dans la ligne du nom).
J'ai essayé de remplacer les lignes :
ActiveSheet.ChartObjects(i).Activate
ActiveChart.Export NomComplet, "GIF"
Par :
oChart = ActiveSheet.ChartObjects(i)
oChart.Activate
ActiveChart.Export "C:\Chemin" & NomChart & ".gif", "GIF"
Mais ça ne marche pas.
Donc si vous aviez une idée!
Merci d'avance!!
roro59650
Messages postés99Date d'inscriptionvendredi 20 avril 2007StatutMembreDernière intervention28 juillet 20111 23 mai 2007 à 16:24
Le deuxième m'affiche comme erreur :
"Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet"
Donc je retire mon oChart ce qui donne :
ActiveSheet.ChartObjects(i).Activate
En lieu et place de :
oChart = ActiveSheet.ChartObjects(i)
oChart.Activate
Qui me donne cette erreur :
"Erreur d'exécution '1004':
La méthode 'Export' de l'objet'_Chart' a échoué"