Программное добавление меток данных Excel в гистограмму

Я пытаюсь добавить гистограмму в файл 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 следующее: введите здесь описание изображения

Как я могу добавить эти метки программно? Это означает, что я хотел бы использовать определенный диапазон ячеек для меток, как указано в этом псевдокоде:

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

charts excel progress-4gl
person Alexander    schedule 24.04.2014    source источник
comment
Вы не можете создать столбец с помощью CONCATENATE( ... ) и использовать их в BarChar ?   -  person user3514930    schedule 24.04.2014
comment
Можете ли вы дать мне более подробную информацию о том, как вы это сделаете?   -  person Alexander    schedule 24.04.2014
comment
Начальное значение находится в ячейках A1: A13, в ячейках B1: B13 вы помещаете формулу = СЦЕПИТЬ (метка; A1) В метке вы указываете то, что хотите. Например, C1, где вы можете указать каждое значение по-разному... В конце концов, по коду вы меняете значение C1...   -  person user3514930    schedule 24.04.2014
comment
Возможно, этот пост в базе знаний Progress поможет вам? knowledgebase.progress.com/articles/Article/   -  person Jensd    schedule 25.04.2014

Ответы (1)


arrow_upward
0
arrow_downward

Если эти метки находятся в диапазоне рабочего листа, то что-то вроде этого (это VBA; сделайте его синтаксис совместимым с используемой программой):

ActiveChart.SeriesCollection(1).XValues ​​= chWorkSheet2.Range("B1:B" + STRING(iCounter - 1))

person Jon Peltier    schedule 26.04.2014