我需要在单个图表中绘制大约80个方框图,我创建了每个都有7个点的80Series,问题是方框图绘制正确,因为我使用的是Position,但问题是在X轴上,我只得到了7个点标签,我希望所有的80个方框都有这样的标签。
我制作了一个简单的代码,我认为您可以使用它来实现您想要的目标:
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
你能告诉我们以前的代码是否对你有帮助吗?如果没有帮助,请告诉我们你想要什么,所以,我们会尽力给你一个好的解决方案。
谢谢,