图表额外图例工具

Question

我想在箱形图的情况下在图表区中显示平均值、中位数和标准偏差。由于自定义图例工具无法使用使用额外图例工具。

问题是我无法将额外的图例放置在底部轴之后的空白处。谁能帮我解决这个问题。

Answer 1

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

你能告诉我们我的建议代码是否能帮助你解决问题吗？

我希望会有所帮助。

谢谢