donner un nom à un Graphique

[bloomby]

Bonjour à tous,

Comment pouvons-nous faire pour donner un nom à un graphique,
pas un titre mais plutôt un (nom visible en haut à gauche) dans l'écran Excel
se qui me permet d'utiliser se nom pour mon code

merci

 

[pierrejean]

Re : donner un nom à un Graphique

bonjour bloomby

A tester:

Sub renomme()
For n = 1 To ActiveSheet.ChartObjects.Count
NewNom = InputBox("Nouveau nom a donner au graphique " & ActiveSheet.ChartObjects(n).Name)
ActiveSheet.ChartObjects(n).Name = NewNom
Next n
End Sub

 

[Gruick]

Re : donner un nom à un Graphique

Bonjour Bloomby,

Lors de l'élaboration du graphique, en avant dernière étape, on te demande certaines choses, dont le titre que tu veux donner à ton graphique, à tes abscisses et à tes ordonnées.

pour une macro le titre sera "ActiveChart.ChartTitle".

Je t'ai fait un petit exemple pour t'illustrer tout ça, avec la macro et le placement du titre en haut à gauche.

J'espère que cela te convient.

Gruick

Edit : Bonjour Pierre... plus rapide, à Paris on est pas encore dégelés !

 

[christ91]

Re : donner un nom à un Graphique

Bonjour Pierrejean,

Je suis retombé sur ta réponse dans une de mes recherches, car j'ai le même probléme,

je cherche à renommer 3 graphiques qui sont sur la même page sans avoir à passer par l'instruction "inputbox"

les graphs doivent s'appeler stat1, stat2, stat3

l'étape suivante serait de pouvoir les aligner à l'horizontal sans recouvrement.

j'ai essayer de repartir sur ton code, mais je n'y arrive pas, je sollicite donc ton aide.


Merci d'avance
christophe

 

[pierrejean]

Re : donner un nom à un Graphique

Re

Pour renommer teste:

Sub renomme()
For n = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(n).Name = "stat" & n
Next n
End Sub

Pour aligner ,fais nous un petit fichier exemple et on regardera

 

[christ91]

Re : donner un nom à un Graphique

Merci ! !

ça parrait tellement simple pour toi....🙁

pour l'alignement des graphique, j'ai trouve ce code:

For i = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(i).Select
ActiveSheet.ChartObjects(i).Left = (i - 1) * 400
ActiveSheet.ChartObjects(i).Height = 240
ActiveSheet.ChartObjects(i).Width = 400
ActiveSheet.ChartObjects(i).Top = 300
Next i

du coup je peux même me passer du code pour renomer les fichiers....

il y a tellement de façons de faire......