Récupérer le nom d'un graphique en VBA

Bonjour,

J'ai déjà effectué pas mal de recherche mais les réponses s'adaptent généralement à des noms de cellule et non à des graphs eux-mêmes.

Du coup ma question, c'est comme récupérer en VBA le nom d'un graphique et l'affiche en MsgBox par exemple ?

Merci d'avance,

Bonjour,

Si le graphique est seul sur la feuille :

MsgBox Sheets("MaFeuille").ChartObjects(1).Name

S'il y en a plusieurs :

For i = 1 To Sheets("MaFeuille").ChartObjects.Count
        MsgBox Sheets("MaFeuille").ChartObjects(i).Name
Next i

Bonjour,

Merci pour ta réponse,

Malheureusement cette commande permet de récupérer le nom du graphique, mais pas son titre, c'est de ma faute, je me suis mal exprimé...

Merci pour ton aide.

A tester :

MsgBox Sheets("MaFeuille").ChartObjects(1).ChartTitle

Comme ceci ça fonctionne aussi, merci beaucoup !

MsgBox Worksheets("Mafeuil1").ChartObjects(1).Chart.ChartTitle.Text]

J'ai juste une dernière question, comment écrire ce résultat en texte et non en MsgBox ?

Merci d'avance

Tortank a écrit :
J'ai juste une dernière question, comment écrire ce résultat en texte et non en MsgBox ?
Merci d'avance

Comme ça ?

Sheets("Truc").Range("A1") = Worksheets("Mafeuil1").ChartObjects(1).Chart.ChartTitle.Text

Dans l'idée, ma macro fonctionne sur Excel, et expédie des données sur Word.

Je crée mon Document Word de cette façon :

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add

Donc j'imagine que quelque chose comme ça devrait fonctionner :

 objDoc = onglet.ChartObjects(1).Chart.ChartTitle.Text

Malheureusement non :/

Mais je vais creuser sur l'idée de faire un égalité si c'est de cette façon que ça fonctionne.

Merci !

Peut être qu'en utilisant une propriété comme

.MoveLeft

permettrai d'écrire le texte sans se faire écraser par le reste de la macro