以编程方式在条形图中添加Excel数据标签

Question

我尝试将条形图添加到excel文件中。 我正在使用ABL（4GL）来做到这一点：

ASSIGN
vchChart = chExcelApplication:Charts:Add()
vchChart:ChartType = 57
vchChart:HasTitle = FALSE.

vchChart:SetSourceData(chWorkSheet2:Range("B1:B" + STRING(iCounter - 1))).
vchChart:ApplyDataLabels(5).
vchChart:Location(2, "Tabelle1":U).

这会创建一个条形图，但数据的标签是1,2,3,4，... 我想在excel中使用一系列字段来显示图表栏的标签。

这应该是这样的：

如果我手动执行此操作，我将在Excel中使用以下内容：

如何以编程方式添加这些标签？ 这意味着我想为标签使用一定范围的单元格，如本pseudy代码所示：

SetLabels(chWorkSheet2:Range("A1:A" + STRING(iCounter - 1))).

Answer 1

如果这些标签在工作表范围内，那么这样的话（这是VBA;使其语法与您正在使用的程序兼容）：

ActiveChart.SeriesCollection（1）.XValues = chWorkSheet2.Range（＆＃34; B1：B＆＃34; + STRING（iCounter - 1））