[VBA] Changer le nom d'un chart au moment de sa creation [resolu]

Marsh Posté le 18-05-2006 à 10:43:42

Bonjour,
Je suis en train de creer une feuille excel afin d'automatiser au maximum des mesures que je vais devoir realiser. Pour cela j'ai donc fait une macro m'affichant les graphiques de mes donnees. Y a t il moyen de modifier le nom du graphique (donne automatiquement par excel lors de sa creation : chart 1, 2...) afin de pouvoir deplacer ce graph, le supprimer...
Le probleme est que je ne connais pas le nom donne par excel (sinon ce serait trop facile...). Il faudrait donc fixer le nom des sa creation et non le modifier par la suite. Pour vous aider voici mon code :

Code :

Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries
'Define the datas
ActiveChart.SeriesCollection(1).XValues = "=daqv!R8C1:R57C1"
ActiveChart.SeriesCollection(1).Values = "=daqv!R8C3:R57C3"
ActiveChart.SeriesCollection(1).Name = "=""Temperature"""
'Place the chart on Outputs sheet
ActiveChart.Location Where:=xlLocationAsObject, Name:="Outputs"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Temperature"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "time"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Temperature (K)"
End With

Si jamais je n'etais pas assez clair, n'hesitez pas a demander plus de renseignments !
Merci

Message édité par duckleroidelamare le 18-05-2006 à 15:13:28

Reply

Marsh Posté le 18-05-2006 à 10:43:42

Reply

Marsh Posté le 18-05-2006 à 13:49:58

J'avais déjà essayé, sans succès, de changer le nom.

Ce que tu peux faire c'est parcourir tout les charts de ta feuille excel ...

Code :

indexDel = 1
While g_oExcel.ActiveSheet.ChartObjects.Count() <> 0
            g_oExcel.ActiveSheet.ChartObjects(1).Delete
            indexDel = indexDel + 1
Wend

---------------
.

Reply

Marsh Posté le 18-05-2006 à 14:17:44

Merci beaucoup :jap: , je vais voir comme ca ce que ca donne !

Reply

Marsh Posté le 18-05-2006 à 14:59:45

With ActiveChart
.....
.Parent.Name = "Essai"
End With

Message cité 1 fois

Reply

Marsh Posté le 18-05-2006 à 15:13:03

Parfait ca marche nickel kiki29 !!! Merci !

Message édité par duckleroidelamare le 18-05-2006 à 15:15:00

Reply

Marsh Posté le 18-05-2006 à 22:34:22

kiki29 a écrit :

With ActiveChart
.....
.Parent.Name = "Essai"
End With

Ha tiens, faut que j'essaie avec le 'parent', merci :jap:

---------------
.

Reply

Marsh Posté le 19-05-2006 à 03:31:40

Eh oui ma devise : pas de bras pas de chocolat

Reply

[VBA] Changer le nom d'un chart au moment de sa creation [resolu]

Sujets relatifs:

Leave a Replay