Discussion :

[zEndymion]

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 :

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

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

Mais j'aimerais avoir quelques chose du genre

Code :

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

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

[=JBO=]

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 :

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

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 .

[zEndymion]

Slt,

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

Code :

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

1
2
 
Set oGraph = OFrmGraph.LeGraph.Object

[ActionAccess]

Bonjour,

Tu peux peut-être essayer avec ça :

Code :

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

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.

[zEndymion]

Que nini Que nini

........... Toujours cette incompatibilité de type

[=JBO=]

Que nenni...

Bon alors, je vérifie et, ô stupéfaction, je me suis trompé ...
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 :

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

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

[zEndymion]

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

Il fallait écrire :

Code :

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

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, , merci à tous.