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 : Sélectionner tout - Visualiser dans une fenêtre à part
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