Contrôle MS Chart

**Aggrg** · 16/07/2012, 12h24

Bonjour,

je souhaite créer un graphique avec deux séries grâce à MSChart. J'ai consulté déjà quelques Tutos sur le sujet mais je n'y arrive pas trop.

Le plus "curieux" vient surtout du fait que ce genre de code :

Code :

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

1
2
3
4
5
6
7
 
Dim graph As Object
Set graph = Me.Graphique.Object.Application.Chart
 
With graph.Application
    .SeriesCollection.ChartTitle.Text = "Test"
End With

me renvoie
"Erreur d'exécution '438': Propriété ou méthode non gérée par cet objet."

Pourtant lorsque je fais:

Code :

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

1
2
 
Me.Graphique.ChartTitle.Text = "Tadadadadada"

je n'ai aucun problème, le titre s'affiche bien.

Un petit peu d'aide sur le sujet serait donc la bienvenue

**Aggrg** · 24/07/2012, 08h58

Je continue à chercher, à creuser, à me taper la tête contre les mûrs mais je n'avance pas beaucoup...

J'ai beau faire des essais simples, à partir de code trouvé un peu partout, j'obtiens toujours l'erreur: "Erreur d'exécution '438': Propriété ou méthode non gérée par cet objet."

En voici quelques exemples

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim oGraph As graph.Application
Dim oChart As graph.Chart
Dim oSeries1, oSeries2
Set oGraph = Forms.MonForm.MonObjectGraph.Object.Application
Set oChart = oGraph.Chart()
 
oChart.ChartTitle.Text = "Test2"  'Erreur438
 
oChart.ActiveChart.PlotArea.Select  'Erreur438
 
With oChart.Plot.SeriesCollection 'Erreur438
        .Add.oSeries1
        .Add.oSeries2
End With

J'en suis arrivé à croire que le problème vient d'ailleurs.
J'utilise Access2010 et j'ai donc activé les bibliothèques suivantes:
Microsoft Graph 14.0 Object Library
OLE Automation
Microsoft DAO 3.6 Object Library
Microsoft ActiveX Data Objects 6.0 Library

Je sais plus quoi faire...

Alors si quelqu'un a une petite idée, je suis preneur