Déclaration Object MsGraph

Bonjour a tous,

Petite question de confort pour la déclaration d'un object MsGraph.
Je voudrais récupérer toutes les métodes et propriétées d'un object Chart, mais je ne sais pas comment affecté l'obect dans le formulaire a une variable

Le code fonctionne (bien ;) ) actuellement comme ceci :

Code:

---

1 2	OFrmGraph.LeGraph.Export "c:\test.gif"

---

Mais j'aimerais avoir quelques chose du genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub OFrmGraph_EventPrint() Dim oChart As Chart Set oChart = OFrmGraph.LeGraph.Object --> Erreur oChart.Export "C:\Test.Gif" Set oChart = Nothing End Sub

---

Sur l'affectation, il me met l'erreur "Incompatibilité de type"
Si quelqu'un à la syntaxe correct

Merci

Bonjour,

Si je comprends bien:
* OFrmGraph est une référence vers un formulaire ouvert,
* dans ce formulaire, LeGraph est le nom d'un contrôle de type ObjectFrame, qui contient une instance du composant Microsoft Graph (composant ActiveX).

La propriété Object retourne une référence vers l'instance du composant, donc dans ton cas il s'agit d'un objet de type Graph.Application.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub OFrmGraph_EventPrint() Dim oGraph as Graph.Application Dim oChart As Graph.Chart   Set oGraph = OFrmGraph.LeGraph.Object Set oChart = OGraph.Chart()   oChart.Export "C:\Test.Gif"   Set oChart = Nothing Set oGraph = Nothing End Sub

---

On peut simplifier/abréger ce code volontairement "verbeux" pour que les choses soient bien claires ;) .

Slt,

C'est tout à fait ça, mais j'ai toujours l'erreur sur la ligne :

Code:

---

1 2	Set oGraph = OFrmGraph.LeGraph.Object

---

Bonjour,

Tu peux peut-être essayer avec ça :

Code:

---

1 2	Dim oleGrf As Object Set oleGrf = Me.OLEchart.Object

---

Remplacer le Me par le nom de ton formulaire.

Espérant que ça fonctionnera.

:cry: Que nini Que nini

........... Toujours cette incompatibilité de type :fessee:

Que nenni...

Bon alors, je vérifie et, ô stupéfaction, je me suis trompé :oops: ...
Le type de la référence retournée est effectivement Graph.Chart.

Alors, il s'agirait d'un "bête" problème de conflit entre 2 bibliothèques possédant un type de classe avec le même nom : Chart ?

Auquel cas, l'utilisation du nom de la bibliothèque élimine l'ambiguïté.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub OFrmGraph_EventPrint()   Dim oChart As Graph.Chart   Set oChart = OFrmGraph.LeGraph.Object oChart.Export "C:\Test.Gif"   Set oChart = Nothing   End Sub

---

Désolé, pas encore tout a fait ça, mais tes remarques m'ont mit sur la voie.

Il fallait écrire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim oGraph As Graph.Application Dim oChart As Graph.Chart Set oGraph = OFrmGraph.LeGraph.Object.Application Set oChart = oGraph.Chart() oChart.Export "C:\Test.Gif" Set oChart = Nothing Set oGraph = Nothing

---

Et là c'est le miracle, :lol: , merci à tous.