Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Макрос на VB в Corel Draw???

6 views
Skip to first unread message

Veniamin Razdobudko

unread,
Aug 8, 2004, 4:53:52 AM8/8/04
to
Hello, All!

Написал макрос в Корел Дро, который действует на выделенный объект. Но не
знаю, как написать проверку, выделен какой-нибудь объект или нет? Т.е. я
хочу, чтобы в случае, если ничего не выделено, выводилось сообщение
"Выделите объект".

Пробовал так:

If ActiveSelection.Selected = False Then
MsgBox "Выделите объект.", 48, "Объект не выделен."
GoTo end_sub

Не работает.

------------------------
With best regards, Veniamin Razdobudko. E-mail: razdaсобакаinboxточкаru

--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru

Valery Lapenkov

unread,
Aug 9, 2004, 3:28:28 AM8/9/04
to

Veniamin Razdobudko wrote:

> Hello, All!

> Написал макрос в Корел Дро, который действует на выделенный объект. Но не
> знаю, как написать проверку, выделен какой-нибудь объект или нет? Т.е. я
> хочу, чтобы в случае, если ничего не выделено, выводилось сообщение
> "Выделите объект".

> Пробовал так:

> If ActiveSelection.Selected = False Then
> MsgBox "Выделите объект.", 48, "Объект не выделен."
> GoTo end_sub

Переберите все обьекты в коллекции - чего там в CorelDraw
ниже Application?, (for each), и для каждого проверьте свойство
Selected, Activated или опять же чего там есть у обьекта.

0 new messages