Attriuber une variable graph à un graphique

Frank -  
 Frank -
Bonjour,

J'ai plusieurs graphiques sur une feuille de excel. J'ai créé ces graphiques avec l'interface excel.

Maintenant, en VBA, j'aimerais attribuer une variable graph à chacun de ces graphiques pour pouvoir changer le titre par exemple.

Par exemple:

Set MonGraphe = ChartObjects.Add(160, 90, 800, 550).Chart
'mais sans ajouter un nouveau graph

Merci d'avance


1 réponse

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Un exemple qui attribue à 3 variables gr1, gr2, gr3 les trois graphiques de la feuille, qui les nomme "GR1", "GR2", GR3", puis qui en selectionne un au hasard

Sub ok()
Dim nugr As Long
Dim gr1 As Object, gr2 As Object, gr3 As Object
Set gr1 = ActiveSheet.ChartObjects(1)
gr1.Name = "GR1"
Set gr2 = ActiveSheet.ChartObjects(2)
gr2.Name = "GR2"
Set gr3 = ActiveSheet.ChartObjects(3)
gr3.Name = "GR3"
nugr = 1 + Int(Rnd * 3)
ChartObjects("GR" & nugr).Select
End Sub

Cdlmnt
0
Frank
 
Merci beaucoup!
0