Teechart额外传奇工具

时间:2013-09-30 09:33:59

标签: activex teechart

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

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

1 个答案:

答案 0 :(得分: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

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

我希望能有所帮助。

谢谢,