Codename graphique

[mécano41]

Bonjour à tous,

Quelqu'un pourrait-il me dire pourquoi la ligne de recherche du Codename ne fonctionne pas. Ma conclusion est qu'il n'existe pas de codename pour un graphique incorporé sur la feuille mais je souhaiterais une confirmation.

' --------------- Cherche les noms de graphiques incorporés en tant qu'objets sur une feuille
Sub ChercherNomGraphique()
Dim Graphique As ChartObject
For Each Graphique In RMfeuille1.ChartObjects
    MsgBox "Nom : " & Graphique.Name
    MsgBox "NomCode : " & Graphique.Chart.CodeName
Next Graphique
End Sub

En vous remerciant d'avance...

Cordialement

 

[Staple1600]

Re : Codename graphique

Bonjour


Jon Peltier says

VBA - Active Chart Sheet:

ActiveChart.Name = "Name of this Chart"

VBA - Any Existing Chart Sheet:

ActiveWorkbook.Charts(3).Name = "Name of this Chart" or...
ActiveWorkbook.Charts("Old Chart Name").Name = "Name of this Chart"

 

[mécano41]

Re : Codename graphique

Bonjour,

Merci pour cette réponse, mais pour ce qui est du "Name", il sort normalement dans ma boucle ; le problème c'est pour le Codename (la deuxième ligne dans ma boucle) dont je me demande s'il existe ou non...

Cordialement

 

[Staple1600]

Re : Codename graphique

Re

Un peu de curiosité que diable, mecano41, je t'ai pourtant mis sur la piste en mettant son nom en gras.

Embedded Charts
An embedded chart has no name property, the parent Chart Object has the name. You can name an embedded chart's parent chart object this way.

 

[Pierrot93]

Re : Codename graphique

Bonjour Meccano, Jean-Marie

Pour moi la propriété "codename" ne s'applique pas à un graphique incorporé, mais à une feuille graphique.... Enfin bon, c'est juste mon avis, suis pas anglophone du tout....

bonne soirée
@+

Edition : la propriété 'parent' d'un graphique incorporé, renverra le nom de la feuille sur laquelle il est placé....

 

[mécano41]

Re : Codename graphique

Effectivement, il y a pas mal d'explications sur le site de Jon Peltier (je ne connaissais pas)...je vais étudier cela... et probablement d'autres points.

Encore merci.

Cordialement