在箱线图的情况下,我想在图表区域显示平均值、中值和标准偏差。因为自定义图例工具无法教授使用额外图例工具。
问题是我无法将额外的图例放置在我的底部轴之后的空白处。任何人都可以帮助我。
我认为您的问题是因为您需要重新绘制图表,然后再尝试计算 ExtraLegend 工具的自定义位置。您可以像我在下一个简单代码中所做的那样做类似的事情,我在其中绘制了一个与原始图例对齐的 ExtraLegend 工具:
Private Sub Form_Load()
TChart1.AddSeries scBox
TChart1.AddSeries scBox
TChart1.Series(0).FillSampleValues 5
TChart1.Series(1).FillSampleValues 5
TChart1.Legend.LegendStyle = lsValues
TChart1.Series(0).asBoxPlot.Box.Brush.Color = vbRed
TChart1.Series(1).asBoxPlot.Box.Brush.Color = vbBlue
TChart1.Tools.Add tcExtraLegend
TChart1.Tools.Items(0).asExtraLegend.Series = TChart1.Series(1)
'Use internal Repaint to calculate the position of Legend.
TChart1.Environment.InternalRepaint
With TChart1.Tools.Items(0).asExtraLegend.Legend
.CustomPosition = True
.Left = TChart1.Legend.Left
.Top = TChart1.Legend.ShapeBounds.Bottom + 10
End With
End Sub
您能否告诉我们我的建议代码是否可以帮助您解决问题?
我希望会有所帮助。
谢谢,