[VBA-E] problème exportation d'un chartspace

Bonjour,


J'ai un chartspace nommé CHART_1 dans une userform USF_graph2.
Je souhaite exporter le graphique dans word. Pour cela, je crée d'abors un fichier "GIF" temporaire.


La strucuture est la suivante:

Code:

---

1 2	mongif = ThisWorkbook.Path & "\recettechoisie.gif" USF_graph2.CHART_1.ExportPicture mongif, "GIF", 800, 600

---

Excel m'indique une erreur d'exécution '430' :

Citation:

---

La classe ne gère pas automation ou l'interface attendue.

---

J'avoue que je bloque depuis hier sur ce problème...

merci,

Pour un graphe placé dans une feuille de calcul, j'ai ça

Code:

---

1 2 3 4 5 6

Sub ExportGraphEnGif() Dim NomFich NomFich = "D:\xls\LeGraph.gif" Worksheets("Feuil1").Shapes("Chart 1").Select ActiveChart.Export NomFich, "GIF" End Sub

---

Situé dans un userform, j'ai pas. Enfin, avec le code que tu mets j'ai une autre erreur (!!!) -> 438
Désolé
As-tu regardé sur le forum VB6 et antérieurs ?

merci pour la réponse,
C'est en m'aidant du forum et d'autres sources que j'ai réussi à créer mon graphe dans l'userform et touvé la méthode pour l'exporter.
Je connaissais ta solution mais je voulais éviter de refaire le graphe dans une feuille.
Je crois que je ne vais pas avoir le choix..
L'erreur 438 doit s'afficher car la synthaxe n'est pas la même pour un chart classique que pour un chartspace.

merci

bonsoir

Ta syntaxe semble correcte.


Voici un autre exemple qui fonctionne chez moi:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton2_Click() Dim Gr As OWC.ChartSpace Dim Largeur As Long, Hauteur As Long   Largeur = 560 Hauteur = 480   Set Gr = Me.ChartSpace1 Gr.ExportPicture "C:\grapheImage.gif", "gif", Largeur, Hauteur End Sub

---

michel

merci michel,

en faisant une recherche sur google j'ai appris que mon problème venait de l'installation de XP2 avec office 2003.
En téléchargeant la version mise à jour des Office Web components (version4 de OWC11 pour office 2003), le message d'erreur disparait.