vba modificare casella di testo in un grafico

[scacco al re]

Ho estrapolato questa situazione da una macro:

Codice: Seleziona tutto

...
Sheets("Grafico minmax variabile").Select   'seleziono il mio grafico
            ActiveChart.ChartArea.Select   'attivo l'area
            ActiveChart.SeriesCollection(1).Points(1).DataLabel.Text = "MIN" & Chr(13) & cvminv & Chr(13) & cdminv
                          'in funzione a delle mie variabili cambio il nome all'etichetta
            ActiveChart.ChartTitle.Text = "Grafico MAX / MIN ultimi " & g & " giorni"
                          'in funzione della variabile g cambio il titolo del grafico
            ....

e fino a qua tutto ok, ho inserito nel grafico anche una casella di testo (manualmente ho fatto strumenti del grafico/layout/casella di testo e ho inserito un mio testo base), ma non riesco a dare il comando per poterlo modificare all'interno della macro activechart.???.text="mio testo" & nome variabile al posto dei ??? cosa devo inserire
Grazie

[Anthony47]

Registra una macro mentre selezioni quel textbox e cambi il suo testo, e poi adottalo (credo con nessun adattamento se non il nome grafico) nella tua macro.
Io ad esempio ho ottenuto

Codice: Seleziona tutto

    ActiveSheet.ChartObjects("Grafico 1").Activate
    ActiveChart.Shapes.Range(Array("TextBox 1")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Nuovo testo"
'altre righe che mi sembrano superflue


Ciao

[scacco al re]

Prima di postare il mio problema ho registrato la macro andandao a modificare la casella di testo.
Andando in seguito a modificare la macro che ho registrato non c'era assolutamente traccia della modifica del testo.
(solo comandi di selezione grafico e activesheet...
Comunque grazie al tuo prezioso consiglio sono riuscito a creare la macro:

Codice: Seleziona tutto

...
    Sheets("nome mio grafico").Select
    ActiveChart.ChartTitle.Select
    ActiveChart.Shapes.Range(Array("CasellaDiTesto 1")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "mio testo" & variabile
...

Grazie