Récupérez le titre d'un graphqiue dans une cellule

[Michel]

Bonnjour le forum,

Comment en VB peut-on récupérez le titre d'un graphique pour l'écrire dans une cellule?

Merci
Michel

 

[MichelXld]

bonsoir Michel

pour afficher le titre du 1er graphique de la Feuil1 , tu peux tester

Range('A1') = Sheets('Feuil1').ChartObjects(1).Chart.ChartTitle.Characters.Text


bonne soiree
MichelXld

 

[Michel]

Bonjour,
Merci à MichelXLD.
Très pro. Il fallait le trouver. Voici mon code pour insérer le titre de plusieurs graphiques situés sur une feuille.

Sub graph_titre()
n = InputBox('combien de graphiques?')
nomfeuil = ActiveSheet.Name

For i = 1 To n
Range(ActiveCell.Address) = Sheets(nomfeuil).ChartObjects(i).Chart.ChartTitle.Characters.Text
ActiveCell.Offset(1, 0).Range('A1').Select
Next i
End Sub

Cela m'a bien dépanné.

Une autre question me vient à l'esprit, comment puis-je savoir le nombre de graphiques présents sur une feuille pour éviter le inputbox?
Merci d'avance
Bonne journée
Michel

 

[MichelXld]

bonsoir Michel

pour compter le nombre de graphiques dans la Feuil1 , tu peux utiliser :

MsgBox Sheets('Feuil1').ChartObjects.Count


pour d'autres infos au sujet des graphiques :

https://www.excel-downloads.com/threads/ref-wiki-1-de-michelxld-generalites-excel.92356/


bonne soiree
MichelXld

Message édité par: michelxld, à: 08/11/2005 16:53

 

[Michel]

Bonjour,
Encore merci à MichelXLD pour sa rapidité.
Voici maintenant le code qui permet d'avoir le titre des graphiques présents sur une feuille.

Sub graph_titre()
Rem n = InputBox('combien de graphiques?')
nomfeuil = ActiveSheet.Name
n = Sheets(nomfeuil).ChartObjects.Count
For i = 1 To n
Range(ActiveCell.Address) = Sheets(nomfeuil).ChartObjects(i).Chart.ChartTitle.Characters.Text
ActiveCell.Offset(1, 0).Range('A1').Select
Next i
End Sub

Bonne soirée
Michel