Second axe pour graph sur userform
Reprise d'une ancienne discussion non finie concernant la manipulation de graph sur form, pour la creation d'une deuxieme axe:
"AxisGroup = 2 " ne marche pas du tout... Quelqu'un sait comment attribuer a une courbe le deuxieme axe? Sans affecter le premier?
L'un parle de sous et l'autre de m2 donc c'est a ne pas melanger.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
|
Set c = Userform1.ChartSpace1.Constants
Set Cht = Userform1.ChartSpace1.Charts
x = Cht.Item(0).SeriesCollection.count
Cht.Item(0).SeriesCollection.Add
With Cht.Item(0)
.Axes.Add
.SeriesCollection(x).SetData c.chDimValues, c.chDataLiteral, plage
.SeriesCollection(x).Interior.Color = 50000 * (j + 1)
.SeriesCollection(x).AxisGroup = 2 '(Et la c'est le drame)
End With |