Attriuber une variable graph à un graphique

Question

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


Configuration: Windows XP / Chrome 31.0.1650.59

ccm81 · Answer

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

Attriuber une variable graph à un graphique

1 réponse

Discussions similaires

Newsletters