converted to PDF by HupBaH9I
oleExcel.ActiveCell.FormulaR1C1 = "Мощность" oleExcel.Range("C2").Select oleExcel.ActiveCell.FormulaR1C1 = "Крутящий момент"
******* Добавления значений *******
FOR I=1 TO KOL_Z oleExcel.Cells(i+2,1).Value = all_value(i,1) oleExcel.Cells(i+2,2).Value = all_value(i,2) oleExcel.Cells(i+2,3).Value = all_value(i,3) ENDFOR
******* Строим диаграмму *******
oleExcel.ActiveSheet.ChartObjects.Add(245, 10, 340, 270).Select oleExcel.ActiveChart.; chartwizard(oleExcel.range(oleExcel.cells(2,1),oleExcel.cells(12,3)),; -4100,5,1,1,1,2,"Десять лучших","","","")
&&Где:
&&Gallery - -4100,
&&Format - 5,
&&PlotBy - 1,
&&CategoryLabels - 1,
&&SeriesLabels - 1,
&&HasLegend - 2,
&&Title - "Десять лучших",
&&CategoryTitle - "",
&&ValueTitle - "",
&&ExtraTitle - ""
******* Изменяем угол просмотра *******
oleExcel.ActiveChart.Elevation = 0 oleExcel.ActiveChart.Rotation = 328
Результат выполнения данного кода представлен на рис. 10.8.
Рис. 10.8.
Построение отчета в Word for Windows
Чрезвычайно популярным пакетом для подготовки текстовой информации в нашей стране является текстовый процессор Word for Windows. Поэтому вполне объяснимо желание
пользователя увидеть нужные ему данные в любимом редакторе и самостоятельно преобразовать
converted to PDF by HupBaH9I
их в требуемый вид. Приведем образец кода для передачи данных из формы "Характеристика модели автомобиля" в Microsoft Word:
oleWord=CREATEOBJECT("Word.Basic")
oleWord.FileNewDefault
oleWord.AppShow
oleWord.FilePageSetup(,,"2,54 см","2,54 см","2,5 см","1,5 см","0 см","21 см","29,7 см") oleWord.FormatFont("14",0,9,0,0,0,0,1,0,"0 пт","0 пт",0,"", ,"Times New Roman Cyr", , 1) oleWord.FormatParagraph( "0 см", "0 см","0 пт","0 пт", 0,"",1,1, 0, 0, 0, 0, 0,"0","0 см") oleWord.Insert("Характеристика модели автомобиля")
oleWord.InsertPara
oleWord.InsertPara
*********Создание таблицы***************
oleWord.TableInsertTable( ,"3",ALLT(STR(Kol_z+1))) oleWord.TableSelectColumn && Выделение колонки oleWord.LeftPara && Выравнивание по левому краю oleWord.TableSelectTable && Выделение таблицы oleWord.TableRowHeight("0",2,"25 пт","0 см", 0,1) oleWord.TableSelectColumn && Выделение колонки oleWord.LineDown(1)
oleWord.LineUp(1)
oleWord.TableSelectColumn && Выделение колонки
oleWord.TableColumnWidth("11 см","0,38 см") && Установка ширины выделенной колонки oleWord.NextCell
oleWord.NextCell
oleWord.TableSelectColumn && Выделение колонки oleWord.TableColumnWidth("3,5 см","0,38 см") oleWord.NextCell
oleWord.NextCell
oleWord.TableSelectColumn && Выделение колонки oleWord.TableColumnWidth("3,5 см","0,38 см") oleWord.TableSelectTable && Выделение таблицы
oleWord.FormatBordersAndShading (3, 0, 2, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 0, "0 пт", 0, 0, 0,"0", -1) oleWord.CharRight(1)
oleWord.LineUp(1)
oleWord.TableSelectRow && Выделение ряда oleWord.TableHeadings
oleWord.Bold
oleWord.CenterPara oleWord.FormatParagraph("","","","",4,"25 пт") oleWord.CharLeft(1) oleWord.Insert("Наименование модели") oleWord.NextCell
oleWord.Insert("Мощность") oleWord.NextCell oleWord.Insert("Крутящий момент") oleWord.NextCell
******* Добавления значений в таблицу*******
FOR I=1 TO KOL_Z oleWord.Insert(all_value(i,1)) oleWord.NextCell oleWord.Insert(STR(all_value(i,2))) oleWord.NextCell oleWord.Insert(STR(all_value(i,3))) IF I<<KOL_Z
oleWord.NextCell ENDIF
ENDFOR
Результат выполнения данного кода представлен на рис. 10.9.
converted to PDF by HupBaH9I
Рис. 10.9. Пример передачи данных в Microsoft Word
Запись информации в Schedule+
Используя возможности OLE Automation и наличие в составе пакета Microsoft Office специальной программы для планирования - Schedule+, мы можем расширить возможности нашего приложения за счет включения в него функций бизнес-планирования.
Microsoft Schedule+ является средством бизнес-планирования, которое может использоваться в локальном режиме и в режиме совместного доступа. Программа Schedule+ является OLE- сервером, и поэтому мы можем использовать объекты этой программы для хранения, планирования и управления сведениями о встречах, собраниях, задачах, контактах и событиях. При планировании в расписание заносится оповещение, что позволяет не забыть о важной встрече, задаче или событии.
Организация объектов в Schedule+ несколько отличается от Excel или MS Graph. Здесь имеются два типа объектов: таблица и пункт. Каждая таблица состоит из определенного количества строк, которые и представляются пунктами. Каждый пункт имеет определенный набор свойств. Описанная структура приведена на рис. 10.10.
Рис. 10.10. Структура объектов в Schedule+
В качестве объектов типа таблица рассматриваются основные функциональные возможности Schedule+. Это запланированные события (Appointments), записи о лицах (Contacts), предупреждения (Alarms) и т. д. В свою очередь каждое событие, запись и т. п. является объектом типа пункт и имеет набор свойств. Например, для того чтобы записать сведения о новом лице в Visual Basic, необходимо выполнить такую программу:
Sub NewContact()