顶部和底部图例的垂直滚动条

Question

我想将我的图例与我图表的底部对齐，因为我的图例中出现的字符数大约是100。

请告诉我如何为其提供垂直工具栏，以便图例框尺寸保持不变，以及是否有办法可以将标签中的文字四舍五入。

由于 阿克沙伊

Answer 1

tcLegendScrollBar工具旨在显示图例中不适合图例矩形的项目，而不是限制项目中显示的字符数。这是一个例子：

Private Sub Form_Load()
  TChart1.Aspect.View3D = False

  Dim i As Integer
  For i = 0 To 10
    TChart1.AddSeries scFastLine
    TChart1.Series(i).FillSampleValues 10
    TChart1.Series(i).Title = "this is a very very veeeeeeery long string to be shown in the legend as title for the series " + Str$(i)
  Next i

  TChart1.Legend.MaxNumRows = 5
  TChart1.Tools.Add tcLegendScrollBar
End Sub

要限制图例中字符串的长度，您可以使用OnGetLegendText事件。即：

Private Sub TChart1_OnGetLegendText(ByVal LegendStyle As Long, ByVal ValueIndex As Long, LegendText As String)
  LegendText = Left$(LegendText, 10) + "..."
End Sub