Просматривают:
1 Анонимно
CorelDRAW , макрос |
||
|
||
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
Всем приветики.
Хотел написать Макрос , который бы обрабатывал только те объекты, которые выбраны пользователем и в том же порядке. 1. Есть открытый документ CorelDraw с кучей разных объектов. 2. Пользователь выделяет (selection) объекты нажимает кнопку "запомнить". 3. Выделенному (selection) присваевается порядковый номер(?) заноситься в список или массив(?) или..... 4. Потом согласно сформированого списка выпоняется обработка selections. ps: есть форма, две кнопки ("запомнить", "обработать" и ListBox. Кто силен помогите, или подскажите есть подобный макрос (SelectionManager) по сохранению селекций, но как автор реализовал непонятно
Опубликовано: 2008/2/4 10:24
|
|
|
Re: CorelDRAW , макрос |
|
---|---|---|
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36 Откуда Барнаул
Сообщений: 252
|
А не проще просто сразу обработать выделенное???
Используйте ActiveSelectionRange
Опубликовано: 2008/2/4 10:52
|
|
|
Re: CorelDRAW , макрос |
|
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
ну по конкретнее наверно только так...
Как присвоить селектированой шапе порядковый номер так , чтобы потом можно было по этому номеру найти ее. Dim mySelection As ShapeRange Set mySelection = ActiveSelectionRange mySelection.??????????????????????????????????????? ????????????????????????????????????????????
Опубликовано: 2008/2/4 11:01
|
|
|
Re: CorelDRAW , макрос |
|
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
так то оно проще но вся вишка в том что пользователю проще создать "список(и)" позиций а потом согласно др условиям обработать их в порядке выбора
Опубликовано: 2008/2/4 11:05
|
|
|
Re: CorelDRAW , макрос |
|
---|---|---|
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36 Откуда Барнаул
Сообщений: 252
|
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
|
Ваше желание заработать понятно..........
и все же "Перед обработкой можно запомнить активное выделение в отдельный ранж, а затем после обработки выделить этот ранж." Если не сильно отвлеку, но как это сделать? (я с VBA только пару дней )
Опубликовано: 2008/2/4 13:37
|
|
|
Re: CorelDRAW , макрос |
|
---|---|---|
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36 Откуда Барнаул
Сообщений: 252
|
Извиняйте, у меня времени тоже в обрез...
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
|
спасибо
Есть ли у Вас макрос "SelectionManager"?
Опубликовано: 2008/2/4 14:21
|
|
|
Re: CorelDRAW , макрос |
|
---|---|---|
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36 Откуда Барнаул
Сообщений: 252
|
нету
Опубликовано: 2008/2/4 14:29
|
|
|
Re: CorelDRAW , макрос |
|
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
могу кинуть в почту или еще куда нить
Опубликовано: 2008/2/4 14:45
Edited by GoodvinVV on 04/02/2008 15:04:57
|
|
|
Re: CorelDRAW , макрос |
|
---|---|---|
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36 Откуда Барнаул
Сообщений: 252
|
А зачем он мне?
Опубликовано: 2008/2/4 14:54
|
|