Page 1 of 1
Is there any way to realize this kind of axis arrangement?
Posted: Thu Aug 03, 2006 10:07 am
by 9529132
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
Posted: Thu Aug 03, 2006 2:41 pm
by Pep
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.
Posted: Fri Aug 04, 2006 12:49 am
by 9529132
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
Posted: Fri Aug 04, 2006 8:54 am
by Pep
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
Posted: Fri Aug 04, 2006 9:11 am
by 9529132
Hi, Pep,
I will test it and hopefully it can work here. Thank you very much for your help!
David
Posted: Fri Aug 04, 2006 9:37 am
by 9529132
Yeah, it works! Thank you very much!
