Comment creer 2 axes de courbes en vb pour 2 series

Comment creer 2 axes de courbes en vb pour 2 series - ASP - Programmation

Marsh Posté le 07-09-2006 à 16:19:33    

bonjour,  
mon pb est le suivant j'ai 2 séries de valeurs et je 'arrive bien à créer 2 courbes mais j'aurais voulu créer une deuxième échelle différente de la première mais avec un min et un max différent.  
voici mon code, merci :  
ChartSpace1.Clear  
    Set oConst = ChartSpace1.Constants  
 Chartspace1.interior.SetSolid "#008EB4"  
 
    'Creation d'un nouveau ChartSpace.  
    Set oChart = ChartSpace1.Charts.Add  
 
    'Ajout d'une série Type colonne.  
    Set oSeries1 = oChart.SeriesCollection.Add  
    oSeries1.Caption = "Prélévement"  
    oSeries1.SetData oConst.chDimCategories, oConst.chDataLiteral, anneet 'TheDate  
    oSeries1.SetData oConst.chDimValues, oConst.chDataLiteral, IFCPt   ' tableau de valeurs  
    oSeries1.Type = oConst.chChartTypeColumnClustered  
 oSeries1.Interior.SetSolid "#ec6700"  
 
    'Add d'une série en ligne.  
    Set oSeries2 = oChart.SeriesCollection.Add  
    oSeries2.Caption = "Cotisations*"  
    oSeries2.SetData oConst.chDimCategories, oConst.chDataLiteral, anneet 'theDate  
    oSeries2.SetData oConst.chDimValues, oConst.chDataLiteral, PTt   ' tableau de valeurs  
    oSeries2.Type = oConst.chChartTypeLineMarkers  
    oSeries2.Interior.SetSolid "#273c7f"  
 
      ' premier axe  
    Set oAxis1 = oChart.Axes(oConst.chAxisPositionLeft)  
    oAxis1.Scaling.Maximum = 5000  
    oAxis1.Scaling.Minimum = 0  
    oAxis1.NumberFormat = "0 €"  
    oAxis1.HasMajorGridlines = false

Reply

Marsh Posté le 07-09-2006 à 16:19:33   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed