VPF::График в Excel - Форум программистов

Thoron

Дата 17.11.2008, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 10.7.2008

Репутация: 1
Всего: 1

Добрый день, госпада программисты.
Пишу программку которая выводит данные в Excel и строит по ним график, не могу сделать чтобы на графике возле контрольных точек были их значения.

В VBA для этого пишется строка:

Код


ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=True, _
ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False, Separator _:="; "

В Delphi пишу:

Код


with Ch do begin
      SetSourceData(oRng, xlRows);
      ChartType := xlXYScatterSmooth;
      HasTitle[lcid] := True;
      ChartTitle[lcid].Characters[EmptyParam, EmptyParam].Text := '***';
      (Axes(xlCategory, xlPrimary, lcid) as Axis).MinimumScale := -70;
      (Axes(xlCategory, xlPrimary, lcid) as Axis).MaximumScale := 135;
      (Axes(xlCategory, xlPrimary, lcid) as Axis).MajorUnit := 20;
      (Axes(xlCategory, xlPrimary, lcid) as Axis).TickLabels.Orientation := 45;
      (Axes(xlValue, xlPrimary, lcid) as Axis).MaximumScale :=***;
      (Axes(xlValue, xlPrimary, lcid) as Axis).MinimumScale := ***;
      (Axes(xlValue, xlPrimary, lcid) as Axis).HasTitle := false;
      Legend[lcid].Position := xlBottom;
    end;

... это сам график. Подскажите, как вывести значения точек?

Albinos_x

Дата 20.11.2008, 23:01 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

хм... не могу понять в чём проблема... ты не знаешь к какому свойству обратиться? так это в vba посмотри...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Thoron

Дата 21.11.2008, 08:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 10.7.2008

Репутация: 1
Всего: 1

Цитата

хм... не могу понять в чём проблема... ты не знаешь к какому свойству обратиться? так это в vba посмотри...

Знаю. В моем случае:
Ch.ApplyDataLabels(... // 5 параметров ...)

Но заставить корректно заработать ее у меня не вышло. Вот и спрашиваю, может кто делал уже подобное? smile

Thoron

Дата 25.11.2008, 08:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 10.7.2008

Репутация: 1
Всего: 1

Я сделал так:

Код


Ser, Pnt, Pn :Variant;

Ser:=Ch.SeriesCollection(yn, lcid);
        Pnt:=Ser.Points;
        Pn:=Pnt.Item(xn);
        Pn.ApplyDataLabels(Type:=6);

здесь yn - собстсенно номер линии графика
xn - собственно точка на линии

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »