donner un nom à un Graphique

pierrejean

XLDnaute Barbatruc

• 8 Janvier 2009

• #2

Re : donner un nom à un Graphique

bonjour bloomby

A tester:

Code:

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

 

Vote positif 0 Vote négatif

Gruick

XLDnaute Accro

• 8 Janvier 2009

• #3

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 !

 

Pièces jointes

• Bloomby.xls

  47.5 KB · Affichages: 175
• Bloomby.xls

  47.5 KB · Affichages: 177
• Bloomby.xls

  47.5 KB · Affichages: 183

Dernière édition: 8 Janvier 2009

Vote positif 0 Vote négatif

C

christ91

Guest

• 17 Janvier 2014

• #4

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Janvier 2014

• #5

Re : donner un nom à un Graphique

Re

Pour renommer teste:

Code:

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

 

Vote positif 0 Vote négatif

C

christ91

Guest

• 17 Janvier 2014

• #6

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......

 

Vote positif 0 Vote négatif