Регистрация | | запомнить |
 
 
ВК



Просматривают:   1 Анонимно





CorelDRAW , макрос
print | #
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
Всем приветики.
Хотел написать Макрос , который бы обрабатывал только те объекты, которые выбраны пользователем и в том же порядке.

1. Есть открытый документ CorelDraw с кучей разных объектов.
2. Пользователь выделяет (selection) объекты нажимает кнопку "запомнить".
3. Выделенному (selection) присваевается порядковый номер(?) заноситься в список или массив(?) или.....
4. Потом согласно сформированого списка выпоняется обработка selections.

ps: есть форма, две кнопки ("запомнить", "обработать" и ListBox.
Кто силен помогите, или подскажите

есть подобный макрос (SelectionManager) по сохранению селекций, но как автор реализовал непонятно

Опубликовано: 2008/2/4 10:24
(1) 2 3 »


Re: CorelDRAW , макрос
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36
Откуда Барнаул
Сообщений: 252
Offline
А не проще просто сразу обработать выделенное???
Используйте ActiveSelectionRange

Опубликовано: 2008/2/4 10:52
_________________


Re: CorelDRAW , макрос
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
ну по конкретнее наверно только так...
Как присвоить селектированой шапе порядковый номер так , чтобы потом можно было по этому номеру найти ее.

Dim mySelection As ShapeRange
Set mySelection = ActiveSelectionRange
mySelection.???????????????????????????????????????
????????????????????????????????????????????

Опубликовано: 2008/2/4 11:01


Re: CorelDRAW , макрос
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
так то оно проще но вся вишка в том что пользователю проще создать "список(и)" позиций а потом согласно др условиям обработать их в порядке выбора

Опубликовано: 2008/2/4 11:05


Re: CorelDRAW , макрос
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36
Откуда Барнаул
Сообщений: 252
Offline
Dim mySelection As ShapeRange, s As Shape
Set mySelection = ActiveSelectionRange
For Each s In mySelection
s. .....
Next s

А в список запоминать эт писать надо. Есть желание оплатить - напишу. Но я вас уверяю проще просто обработать ActiveSelectionRange, написать таким образом что: Выделаяем какие надо объекты, запускаем макрос, Он нас через комбоБокс спрашивает какой набор действий совершить. Указываем и ОК. Перед обработкой можно запомнить активное выделение в отдельный ранж, а затем после обработки выделить этот ранж.

Опубликовано: 2008/2/4 12:03
_________________


Re: CorelDRAW , макрос
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
Ваше желание заработать понятно..........
и все же
"Перед обработкой можно запомнить активное выделение в отдельный ранж, а затем после обработки выделить этот ранж." Если не сильно отвлеку, но как это сделать? (я с VBA только пару дней )

Опубликовано: 2008/2/4 13:37


Re: CorelDRAW , макрос
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36
Откуда Барнаул
Сообщений: 252
Offline
Извиняйте, у меня времени тоже в обрез...

Dim mySelection As ShapeRange, s As Shape
Dim sr As New ShapeRange
Set sr = ActiveSelectionRange
Set mySelection = ActiveSelectionRange

For Each s In mySelection
s. обработка шейпа.
Next s
ActiveDocument.ClearSelection
sr.CreateSelection

Опубликовано: 2008/2/4 13:58
_________________


Re: CorelDRAW , макрос
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
спасибо

Есть ли у Вас макрос "SelectionManager"?

Опубликовано: 2008/2/4 14:21


Re: CorelDRAW , макрос
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36
Откуда Барнаул
Сообщений: 252
Offline
нету

Опубликовано: 2008/2/4 14:29
_________________


Re: CorelDRAW , макрос
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
могу кинуть в почту или еще куда нить

Опубликовано: 2008/2/4 14:45

Edited by GoodvinVV on 04/02/2008 15:04:57


Re: CorelDRAW , макрос
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36
Откуда Барнаул
Сообщений: 252
Offline
А зачем он мне?

Опубликовано: 2008/2/4 14:54
_________________



(1) 2 3 »




Форма быстрого ответа
ЛогинИмя   Пароль   Логин
Сообщение:          

      ПРИМЕР


 [далее...]
Уведомлять о сообщениях в теме.



[Настройки поиска]