posts | comments
02Apr

Скрипти VBA в CORELDRAW

No comments
« Гарячі клавіші Corel Draw   |   Професійна робота з текстом в Corel Draw »

Раніше для позиціонування використовувався наступний метод: створювалася додаткова лінія (горизонтальна або вертикальна), вирівнювалася з першим об’єктом по правому краю, а інший об’єкт вирівнювався з нею по лівому. Потім лінія знищувалася.
Підпрограма перебирає всі об’єкти, які були виділені, починаючи з останнього виділеного (дотримується концепція CORELDRAW зміни властивостей по останньому виділеному об’єкту), встановлюючи позицію кожного наступного як позиція попереднього плюс розмір попереднього об’єкту.
Для виклику за допомогою кнопок на панелях інструментів або за допомогою меню створюємо дві додаткові підпрограми - DistributeButtVertical і DistributeButtHorizontal. Звертаю вашу увагу, що в VBA опис типу в операторові DIM проводиться для кожної змінної. Для ефективної роботи застосовується цикл For Each … In … : Next, який перебирає всі вказані об’єкти.
У основній процедурі в рядках 12-17 описуємо змінні і їх типи, далі визначаємо кількість виділених об’єктів і перериваємо процедуру з повідомленням про неможливість виконання, якщо виділено менше двох об’єктів. У рядку 24 задаємо початок групи команд, група визначається як одна дія для команд відміни/повтору і її назва виводиться в списку відміни дій.
Далі, перебираючи в циклі виділені об’єкти встановлюємо координати початку кожного наступного об’єкту рівній координаті кінця попереднього.

Джерело:


Tags: , , , , , ,

Функції програми


Схожі записи

Thursday, April 2nd, 2009 at 09:15 and is filed under Функції програми. You can follow any responses to this entry through the feed. Both comments and pings are currently closed.