我需要在单个图表中绘制80个Box Plot,我创建了80个系列,每个7点,问题是Box绘图正确绘制,因为我使用Position但问题是在X轴上我只得到7点标签我希望所有80 Box Plot。
答案 0 :(得分:0)
我制作了一个简单的代码,我认为您可以根据需要使用它来实现:
Private Sub Form_Load()
TChart1.Aspect.View3D = False
TChart1.Legend.Visible = False
Dim i As Integer
For i = 0 To 80
TChart1.AddSeries scBox
TChart1.Series(i).FillSampleValues 7
TChart1.Series(i).asBoxPlot.Position = i + 10
Next
TChart1.Axis.Bottom.Labels.Style = talValue
TChart1.Axis.Bottom.Labels.Angle = 90
End Sub
您能否告诉我们以前的代码是否对您有帮助?如果它没有帮助请告诉我们你想要的东西,那么,我们会尽力给你一个很好的解决方案。
谢谢,