Версия для печати


Пример построения графика в Excel
http://www.delphikingdom.com/asp/viewitem.asp?catalogID=890

Александр Шабля
дата публикации 16-01-2004 14:50

Пример построения графика в Excel

Excel имеет мощное средство для построения графиков, а разобраться, как это сделать из Delphi порой довольно сложно. Хоть и есть так называемая "запись макроса", но это не всегда помогает, т.к. в библиотеке типов и в макросе VB есть существенные отличия. Если кто не верит и думает, что стоит лишь "заменить кавычки и поставить точку с запятой" пусть попробует и убедится в этом сам.

Внимание! При "внедрении" обязательно нужно получить новый объект 
AChart := AChart.Location(xlLocationAsObject, ASheet.Name)
иначе работать не будет, т.к. "внедренный" график - это уже новый объект. Вторым параметром в функции Location необходимо указать имя листа, в который этот график будет вставлен.

Источником данных для графика служит таблица, набранная в Access'е. Данные из DataSet'а переносятся в новую книгу Excel'я и на их основе строится график. Данный пример не претендует на универсальность, а представлен для ознакомления с возможностями использования объекта Chart в Excel'е. Все значения для примера взяты "с потолка". Генератором случайных чисел был я сам :)

Тестировалось на Delphi 7, MS OfficeXP. Но, думаю, что на Delphi 6 и Office2000 будет работать (не было возможности проверить). Для доступа к Excel'ю использовалось "раннее" связывание и библиотека типов Excel2000.pas из стандартной поставки Delphi ($(DELPHI)\Imports).

Александр Шабля (aka Shabal)
Специально для Королевства Delphi

Примечание:
Для работы в Delphi 5 в модуле Unit1.pas нужно убрать из секции uses объявление модуля Variants.



К материалу прилагаются файлы: