Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1879 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1369429
duckleroid​elamare
Posté le 18-05-2006 à 10:43:42  profilanswer
 

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 :
  1. Charts.Add
  2.     ActiveChart.ChartType = xlXYScatterSmooth
  3.     ActiveChart.SeriesCollection.NewSeries
  4.     'Define the datas
  5.     ActiveChart.SeriesCollection(1).XValues = "=daqv!R8C1:R57C1"
  6.     ActiveChart.SeriesCollection(1).Values = "=daqv!R8C3:R57C3"
  7.     ActiveChart.SeriesCollection(1).Name = "=""Temperature"""
  8.     'Place the chart on Outputs sheet
  9.     ActiveChart.Location Where:=xlLocationAsObject, Name:="Outputs"
  10.    
  11.     With ActiveChart
  12.         .HasTitle = True
  13.         .ChartTitle.Characters.Text = "Temperature"
  14.         .Axes(xlCategory, xlPrimary).HasTitle = True
  15.         .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "time"
  16.         .Axes(xlValue, xlPrimary).HasTitle = True
  17.         .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Temperature (K)"
  18.     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
mood
Publicité
Posté le 18-05-2006 à 10:43:42  profilanswer
 

n°1369610
didier1809
${citation_perso}
Posté le 18-05-2006 à 13:49:58  profilanswer
 

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 :
  1. indexDel = 1
  2. While g_oExcel.ActiveSheet.ChartObjects.Count() <> 0
  3.             g_oExcel.ActiveSheet.ChartObjects(1).Delete
  4.             indexDel = indexDel + 1
  5. Wend


---------------
.
n°1369650
duckleroid​elamare
Posté le 18-05-2006 à 14:17:44  profilanswer
 

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

n°1369733
kiki29
Posté le 18-05-2006 à 14:59:45  profilanswer
 

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

n°1369747
duckleroid​elamare
Posté le 18-05-2006 à 15:13:03  profilanswer
 

Parfait ca marche nickel kiki29 !!! Merci !


Message édité par duckleroidelamare le 18-05-2006 à 15:15:00
n°1370146
didier1809
${citation_perso}
Posté le 18-05-2006 à 22:34:22  profilanswer
 

kiki29 a écrit :

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


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


---------------
.
n°1370227
kiki29
Posté le 19-05-2006 à 03:31:40  profilanswer
 

Eh oui ma devise : pas de bras pas de chocolat


Aller à :
Ajouter une réponse
  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 VBAconversion hexa ascii pour écrire dans un fichier [RESOLU]
Déterminer le maxi d'une scrollbar par code VBAcré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]


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR