6. Вставка малюнків і їх форматування

Крім тексту і таблиць документи можуть мати деякі графічні елементи – малюнки. Для вставки малюнка в документ використовують метод:

w.activedocument.range.inlineshapes.addpicture(filename:='ім'я_файлу', linktofile:=false, savewithdocument:=true);

Даний метод вставить зазначений малюнок у місце положення курсору. Якщо ж потрібно, щоб малюнок вставився в потрібне місце, то доцільно вставляти малюнок у чарунку таблиці, яка повинна бути попередньо створена у файлі шаблону. Вставка малюнка в чарунку таблиці виконується за допомогою методу:

w.activedocument.tables.item(i).cell(n,m).range.inlineshapes.addpicture(filename:='ім'я_файлу', linktofile:=false, savewithdocument:=true);

Вставлений малюнок має оригінальний розмір. Для завдання потрібного розміру малюнку використовують властивості:

w.activedocument.inlineshapes.item(i).width:=число;

w.activedocument.inlineshapes.item(i).height:=число;

де i – номер малюнка в документі (нумерація з 1).

Приклад. Нехай у таблиці БД є поле foto. Потрібно створити документ на підставі шаблону spisok.dot з теки shablon, у якому у вигляді таблиці видати поля fam, imya, otch і foto.

Для видачі поля foto вміст поля потрібно зберігати на диску у вигляді файлу, а потім файл вставляти в чарунку таблиці.

Код має вигляд:

//r – номер поточного рядка, p – номер малюнка в таблиці

var r,p:integer;

begin

//запускаємо word

w:=createoleobject('word.application');

//створюємо новий документ на основі шаблону

w.documents.add(extractfilepath(application.exename)+'shablon\anketa.dot');

//переходимо на перший запис таблиці

ztable1.first;

//спочатку таблиця має один рядок (шапку)

r:=1;

//спочатку таблиця не має малюнків

p:=0;

//у циклі проходимо по записах таблиці

while not ztable1.eof do

begin

    //додаємо новий рядок у кінець таблиці

    w.activedocument.tables.item(1).rows.add;

    //збільшуємо кількість рядків у таблиці

    r:=r+1;

    //у 1 чарунці відображаємо № з/п

    w.activedocument.tables.item(1).cell(r,1).range.text:=inttostr(r-1);

    //у 2 чарунці відображаємо поле fam

    w.activedocument.tables.item(1).cell(r,2).range.text:=ztable1.fieldbyname('fam').asstring;

    //у 3 чарунці відображаємо поле imya

    w.activedocument.tables.item(1).cell(r,3).range.text:=ztable1.fieldbyname('imya').asstring;

    //перевіряємо наявність даних у полі foto

    if ztable1.fieldbyname('foto').asstring <>'' then

    //якщо дані в полі є, то

    begin

        //збільшуємо лічильник малюнків документа

        p:=p+1;

        //зберігаємо вміст поля у файл із ім'ям pictN

        tblobfield(ztable1.fieldbyname('foto')).savetofile(extractfilepath(application.exename)+'pict'+inttostr(p));

        //відображаємо вміст файлу у 4 чарунці таблиці

        w.activedocument.tables.item(1).cell(r,4).range.inlineshapes.addpicture(filename:=extractfilepath(application.exename)+'pict'+inttostr(p), linktofile:=false, savewithdocument:=true);

        //задаємо ширину малюнка

        w.activedocument.inlineshapes.item(p).width:=60;

        //задаємо висоту малюнка

        w.activedocument.inlineshapes.item(p).height:=40;

        //видаляємо файл із малюнком

        deletefile(extractfilepath(application.exename)+'pict'+inttostr(p));

    end;

    //переходимо на наступний запис

    ztable1.next;

end; 

 

Питання для самоконтролю

1. Опишіть загальні поняття технології COM.

2. Опишіть принципи роботи з COM сервером Microsoft Word. Приведіть приклад коду, який або підключається до запущеного екземпляра Word або запускає його.

3. Опишіть принципи роботи з документами Word.

4. Опишіть принципи формування звіту в Word за допомогою шаблонів.

5. Які властивості й методи об'єкта Word ви знаєте для формування табличних документів?

6. Які властивості використовуються для форматування таблиць Word? Як вставити зображення в документ Word?

Лекція №15, 16

Тема: Операції з COM-сервером Microsoft Excel. Робота із книгами в Microsoft Excel. Робота з аркушами книги в Microsoft Excel. Використання шаблону для формування книги.

Мета: Придбати знання та практичні навички при розробці програми з використанням технологій COM.

Перелік питань, що розглядаються на лекції:

1. Операції з COM-сервером Microsoft Excel

2. Робота із книгами в Microsoft Excel

3. Робота з аркушами книги в Microsoft Excel

4. Використання шаблону для формування книги

5. Формування таблиці

6. Форматування чарунок