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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Changer le nom d'un chart au moment de sa creation [resolu]

duckleroidelamare

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

Publicité

didier1809

${citation_perso}

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

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

duckleroidelamare

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

kiki29

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

Message cité 1 fois

duckleroidelamare

Parfait ca marche nickel kiki29 !!! Merci !

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

didier1809

${citation_perso}

kiki29 a écrit :

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

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

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

kiki29

Eh oui ma devise : pas de bras pas de chocolat

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
tableau défini par [][x] ... [résolu]	[Résolu]Gros soucis avec mysql
Problème de validation automatique de forumlaire avec Opera [RESOLU]	[RESOLU] Recuperer des variables avec la commande exec()
A l'aide pour une macro VBA	conversion hexa ascii pour écrire dans un fichier [RESOLU]
Déterminer le maxi d'une scrollbar par code VBA	création d'un championnat en flash
[Résolu]appel de Macro OpenOffice avec API UNO ????
Plus de sujets relatifs à : [VBA] Changer le nom d'un chart au moment de sa creation [resolu]

Page générée en 0.058 secondes