Résolu VBA Création de textbox dans un graphique

[Philou250]

Bonjour,

J'ai un graphique sur une feuille, et j'aimerais mettre des textbox sur ce graphique pour expliquer certaines choses liées aux courbes. Après avoir cherché sur internet, j'ai tapé ceci :

Sub Macro3()
Dim txtBox As TextBox
Dim wsAnalysis As Worksheet
Dim monGraph as Chart
Set wsAnalysis = ...
Set monGraph = ...
Set txtBox = wsAnalysis.monGraph.Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 20, 50, 100)
With txtBox
    .Text = Range("A1")
End With
End Sub

Mais ça ne marche pas, le debug me dit "Object doesn't support property or method" en surlignant la ligne 7.
Qu'est ce que j'ai omis ?

 

[Philou250]

Je remplace la ligne 4 par :

Dim monGraph as ChartObject

Et je remplace les lignes 5, 6, 7 par celles-là :

Set wsAnalysis = Worksheets("Sheet1")
Set monGraph = wsAnalysis.ChartObjects("Chart 1")
monGraph.Chart.Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 20, 50, 100).TextFrame.Characters.Text = "Text Box"

Et ça marche. le problème était donc :
- Erreur dans la déclaration de la variable monGraph
- et j'avais oublié de rajouter "Chart." entre "monGraph." et "Shapes."

 

[zeb]

Philou gagne une bonne réponse