Is there any way to realize this kind of axis arrangement?

David · Post by **David** » Thu Aug 03, 2006 10:07 am

Hi,

I have to realize a project and display results similar to the picture below.
http://www.meatesting.com/images/combo_big.jpg
Is it possible to realize it with custom axis?

Thank you very much!
David

Post by **Pep** » Thu Aug 03, 2006 2:41 pm

Hi David,

yes, of course. You should be able to do this using custom axis and increasing the label size for left axis.
If you need help on this do not hesitate to contact us.

David · Post by **David** » Fri Aug 04, 2006 12:49 am

Hi, Pep,

That's great! Would you please provide a small segment of code to show how to do it? It will be greatly appreciated!

Thank you very much!
David

Post by **Pep** » Fri Aug 04, 2006 8:54 am

Hi David,

ok, bellow is one example which displays several custom axis at left and right side :

Code: Select all

Private Sub Form_Load()

With TChart1
    .Legend.Visible = False
    .Aspect.View3D = False
    .Panel.MarginRight = 23
    .Panel.MarginLeft = 12
    
    .AddSeries scLine
    .Series(0).FillSampleValues 100
    
    .AddSeries scLine
    .Series(1).FillSampleValues (100)
    .Series(1).VerticalAxisCustom = .Axis.AddCustom(False)
    .Axis.Custom(0).PositionPercent = -8
       
    .AddSeries scLine
    .Series(2).FillSampleValues 100
    .Series(2).VerticalAxisCustom = .Axis.AddCustom(False)
    .Axis.Custom(1).PositionPercent = -15
    
    .AddSeries scLine
    .Series(3).FillSampleValues 100
    .Series(3).VerticalAxisCustom = .Axis.AddCustom(False)
    .Axis.Custom(2).Otherside = True
    
    .AddSeries scLine
    .Series(4).FillSampleValues 100
    .Series(4).VerticalAxisCustom = .Axis.AddCustom(False)
    .Axis.Custom(3).Otherside = True
    .Axis.Custom(3).PositionPercent = -8
    
    .AddSeries scLine
    .Series(5).FillSampleValues 100
    .Series(5).VerticalAxisCustom = .Axis.AddCustom(False)
    .Axis.Custom(4).Otherside = True
    .Axis.Custom(4).PositionPercent = -15
    
    .AddSeries scLine
    .Series(6).FillSampleValues 100
    .Series(6).VerticalAxisCustom = .Axis.AddCustom(False)
    .Axis.Custom(5).Otherside = True
    .Axis.Custom(5).PositionPercent = -22
    
    .AddSeries scLine
    .Series(7).FillSampleValues 100
    .Series(7).VerticalAxisCustom = .Axis.AddCustom(False)
    .Axis.Custom(6).Otherside = True
    .Axis.Custom(6).PositionPercent = -29
    
End With
End Sub

David · Post by **David** » Fri Aug 04, 2006 9:11 am

Hi, Pep,

I will test it and hopefully it can work here. Thank you very much for your help!

David

David · Post by **David** » Fri Aug 04, 2006 9:37 am

Yeah, it works! Thank you very much!