0

在箱线图的情况下,我想在图表区域显示平均值、中值和标准偏差。因为自定义图例工具无法教授使用额外图例工具。

问题是我无法将额外的图例放置在我的底部轴之后的空白处。任何人都可以帮助我。

4

1 回答 1

0

我认为您的问题是因为您需要重新绘制图表,然后再尝试计算 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

您能否告诉我们我的建议代码是否可以帮助您解决问题?

我希望会有所帮助。

谢谢,

于 2013-10-01T10:01:28.647 回答