Диаграмма на Lotus

[Guest]

Для: allex

А что тебя именно интересует?
Построить на основе данных обычную столбцовую диаграму на которой показать исполнения быджета (отношение запланированных сумм и израсходованных).

 

[allex]

<!--QuoteBegin-Юлия+15:02:2006, 16:34 -->
<span class="vbquote">(Юлия @ 15:02:2006, 16:34 )</span><!--QuoteEBegin-->Для: allex

А что тебя именно интересует?
Построить на основе данных обычную столбцовую диаграму на которой показать исполнения быджета (отношение запланированных сумм и израсходованных).

[snapback]30660" rel="nofollow" target="_blank[/snapback]​

[/quote]

Прям в точку попала.
Но в планах и более грандиозные задумки

 

[allex]

Для: Юлия
Если можешь,вышли на lotus@melenki.ru

[/quote]

 

[Domino6]

<!--QuoteBegin-Medevic+15:02:2006, 15:12 -->
<span class="vbquote">(Medevic @ 15:02:2006, 15:12 )</span><!--QuoteEBegin-->Т.е. открыть в клиенте ? Как веб-страницу ?

[snapback]30656" rel="nofollow" target="_blank[/snapback]​

[/quote]
При условии что в "Месте вызова" установлен браузер Нотес или Нотес с ядром ИЕ

Можно сначала сформировать в вайл (html) создать документ по форме в котором есть маймовое боди туда заимпортировать файл и тогда в клиенте будет отрисовыватся даже если и браузер другой выставлен

 

[allex]

<!--QuoteBegin-Domino6+15:02:2006, 19:05 -->
<span class="vbquote">(Domino6 @ 15:02:2006, 19:05 )</span><!--QuoteEBegin-->При условии что в "Месте вызова" установлен браузер Нотес или Нотес с ядром ИЕ

Можно сначала сформировать в вайл (html) создать документ по форме в котором есть маймовое боди туда заимпортировать файл и тогда в клиенте будет отрисовыватся даже если и браузер другой выставлен

[snapback]30674" rel="nofollow" target="_blank[/snapback]​

[/quote]

Вот я так и хотел, сначала html сформировать (сохранять его с именем файла = дате создания) а потом его импортировать в форму.Но сначала надо диаграмму сделать , чтоб ее в html запихать.

Ссылка скрыта от гостей

- наглядный пример для использования.Переточить только под свои цыфири и порядок.

 

[allex]

Для Юли

Давай обсудим наболевшее.
Поделись мыслями.

 

[allex]

Для Medevic
<!--QuoteBegin-Medevic+15:02:2006, 10:04 -->
<span class="vbquote">(Medevic @ 15:02:2006, 10:04 )</span><!--QuoteEBegin-->

Ссылка скрыта от гостей

[/quote]
Что то я не понял что там за база.И где связь с SVG

 

[allex]

Создание графиков

Посмотрите -

Ссылка скрыта от гостей

 

[Gor]

Для: Medevic

Имхо, без дополнительных компонентов и не в вебе сделать что-нибудь более-менее нормальное не получится.
Так что проще вставить на форму Microsoft Excel Chart, получить его через GetObject и нарисовать что надо. MS Office есть почти у всех.

Ну а как же достучаться до значений определённых в Microsoft Excel Chart??????
Конечно есть метод GetObject я так понимаю вот он-----

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim handle As Variant
Set uidoc = workspace.CurrentDocument
Set handle = uidoc.GetObject( "MES" )
handle.Application.Visible = True

Получаю объект MES но полей то в нём нету никаких!!!!!Никаких значений не показывается свойст у Object нет... В дебаггере после гетобжекта handle = [OBJECT] Вообще Object-ом управлять можно??
т.е. чтобы диаграмма сама менялась строилась если там одно значение потом другое программно получаем??
И ещё один вопросик может быть глуповатый но я с этим просто не встречался никогда... В каком смысле работать через СOM с Microsoft Excel Chart???Это как?

 

[Medevic]

Открываешь Excel. Там редактор Visual Basic. Там справку по нему. Смотришь свойства и методы у объекта Chart.
Вот пример:

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim neo As Variant
Dim exch As Variant
Dim chart As Variant
Set uidoc = ws.CurrentDocument
Set neo = uidoc.GetObject("Microsoft Office Excel Chart")
Set chart = neo.ActiveChart
chart.HasTitle = True
chart.ChartType = 5
chart.ChartTitle.Text = "Пирог"

 

[Gor]

Для: Medevic

Действительно работает!! Просмотрел в ВБА свойства MEChart.... Только вот ещё кое чего не пойму... Неужели нельзя программно (по событию или по нажатию кнопки...) Изменять диаграмму?? Получить какие нибудь данные или что либо и строить эту диаграмму в соответствии с полученными данными...
Потому что свойства и методы просмотрел а там в основном свойства на изменение цвета, имени итд, а как подлезть туда где значения для построения записаны? Надо как то программно записывать на Sheet? Хотя с помощью свойств Sheeta тоже ничего нельзя вроде бы сделать...Так можно ли
изменять значения в диаграмме программно? И какие свойства надо использовать чтобы до значений её долезть не подскажешь ?

 

[Medevic]

Chart берет данные с Sheet'а. Он там же расположен.
Взять можно, например так.

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim neo As Variant
Dim exch As Variant
Dim chart As Variant
Dim sheet As Variant
Set uidoc = ws.CurrentDocument
Set neo = uidoc.GetObject("Microsoft Office Excel Chart")
Set chart = neo.ActiveChart
Set sheet = neo.Worksheets("Sheet1")
chart.HasTitle = True
chart.ChartType = 5
chart.ChartTitle.Text = "Пирог"

Строить можно с помощью метода chart.Chartwizard.