Discussion :

[fmorretton]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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' :

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

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

merci,

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[fmorretton]

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

[SilkyRoad]

bonsoir

Ta syntaxe semble correcte.


Voici un autre exemple qui fonctionne chez moi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fmorretton]

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.