[VB6] Copie graphique excel dans picturebox (problème)

Bonjour,

J'ai besoin de copier un graphique excel dans ma form. après lecture de ce vieux topic j'ai eu quelques éléments de réponse.
Cependant j'ai écrit un programme de test afin de voir si le principe fonctionnait. Mais rien ne s'affiche! Rien n'est enregistré dans le presse papier non plus.

Concernant l'ouverture, la lecture et la sélection du graphique, je n'ai aucun problème.

Voilà mon code :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form1_Load() Workbooks.Open ("C:\test.xls") Sheets("Feuil1").Select ActiveSheet.ChartObjects("graphique 3").Activate ActiveChart.CopyPicture Picture1.Picture = Clipboard.GetData() Workbooks.Close End Sub

---

Merci beaucoup par avance à ceux qui se pencheront sur la question!

Bonjour,

Le presse-papier parait don vide de graphique ...

Pourquoi ?

Je n'en sais à proprement parler rien (je connais très mal Excel).

J'aurais toutefois tendance à penser que tu n'as pas su définir l'élément graphique à mettre dans ton presse-papiers ... Probablement une omission de la précision ChartArea .....;)

car :

ActiveChart.CopyPicture

me parait assez suspect ! Quel "Chart" serait ici actif, dans ton code ... ???? (ou alors non seulement je ne comprends rien à Excel, mais, en plus, je suis complètement bouché ....:oops:)

Citation:

---

Envoyé par Xerath

Code:

---

ActiveSheet.ChartObjects("graphique 3").Activate

---

---

Le graphique est actif depuis cette ligne! (je me sert de ce type de déclarations dans d'autres programmes.

J'ai déjà essayé de préciser ChartArea, comme je l'ai vu au détour du post mentionné ci dessus, mais ça n'a pas plus donné.

merci de ta réponse

Bonjour,

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form1_Load() Workbooks.Open ("C:\test.xls") Sheets("Feuil1").Select ActiveSheet.ChartObjects("graphique 3").Activate ActiveChart.CopyPicture Picture1.Picture = Clipboard.GetData() Workbooks.Close End Sub

---

Le code produit par les macros excel doit être nettoyé afin d'éviter les selection et activation -
cela évite les interactions incontrolées - idem en invoquant directement les objects (wk, ch).
D'autre part utilise plutôt la méthode export de l'object chart qui utilise les filtres graphiques de la machine
soit

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Form1_Load() Dim wk As Workbook, ch As Chart, monImage As String   Set wk = Workbooks.Open("C:\test.xls") Set ch = Worksheets("Feuil1").ChartObjects("graphique 3").Chart   monImage = wk.Path + "\imgChart.gif" ch.Export monImage   Me.Picture1.Picture = LoadPicture(monImage)   Kill monImage wk.Close   set ch=Nothing set wk = Nothing End Sub

---

Ca fonctionne à merveille!

Merci beaucoup.

Je tiendrais compte de tes remarques en ce qui concerne la déclaration de mes variables, merci aussi de ces précieux conseils.

Merci à vous deux pour vos réponses