Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Диаграмма Excel из VFP 8  [new]
Solmyr
Member

Откуда: город К. -> город М.
Сообщений: 538
Привет, народ.
Помогите, плиз, просветите невежу.
Мне надо из VFP 8 создать диаграмму Excel, чтобы она по данным таблицы строилась.
В примерах я нашел вот такой код:

#DEFINE TAB CHR(9)
#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE DOGS_LOC "Dogs"
#DEFINE CATS_LOC "Cats"

LOCAL nTotSeries,i
public oXLChart1
oXLChart1 = GetObject('','excel.chart')
oXLChart1.application.charts[1].haslegend = .F.
oXLChart1.application.visible = .t.
oXLChart1.application.worksheets(1).cells().clear

_cliptext = ""+TAB+CATS_LOC+TAB+DOGS_LOC+CRLF+;
"1994"+TAB+"11"+TAB+"22"+CRLF+;
"1995"+TAB+"33"+TAB+"44"+CRLF+;
"1996"+TAB+"55"+TAB+"55"+CRLF

oXLChart1.application.worksheets(1).cells(1,1).pastespecial
oXLChart1.application.charts[1].autoformat(-4100,1)

* Remove extra series added by Excel
nTotSeries = oXLChart1.application.charts[1].SeriesCollection().count
FOR i = m.nTotSeries to 4 STEP -1
oXLChart1.application.charts[1].SeriesCollection(m.i).delete
ENDFOR
oXLChart1.application.charts[1].haslegend = .T.

В принципе он многое объясняет, и даже делает почти все, что нужно,
но остались еще вот какие вопросы:
1) есть команда
oXLChart1.application.charts[1].autoformat(-4100,1)
которая как я понимаю задает тип графика.
Откуда можно узнать какие у нее параметры, кроме приведенных в самой команде? Например, по этой команде получается объемная гистограмма,
а мне нужен линейный график.
2) где посомтреть свойства и методы объекта excel.chart? Например, мне еще надо вывести на поле графика исходные данные в виде таблицы?
Заранее спасибо всем.
7 дек 04, 15:43    [1163997]     Ответить | Цитировать Сообщить модератору
 Re: Диаграмма Excel из VFP 8  [new]
AiSK
Member

Откуда:
Сообщений: 210
Посмотри решение
http://www.foxclub.ru/sol/index.php?act=view&id=162
Там есть как раз выбор типа диаграммы
8 дек 04, 11:55    [1166222]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить