Установить vba для coreldraw
Откомпилировать, сконвертировать в сценарий или еще как-нибудь?
Подробно: есть Корел 13, лицензионный, для образовательных учреждений - и потому урезанный в некоторых возможностях. Есть VBA-код. И есть предположение, что у корела имеется средство, аналогичное фотошоповскому droplet.
Интересно решить проблему "в общем виде", не для конкретного кода. Подскажите, куда копать?
Если в Кореле не установлен VBA, макросы не будут работать. Можно попробовать написать аналогичный код только на С++ и скомпилировать в плагин, но не уверен что будет работать, хотя теоретически должно :)
Вопрос рядом с темой.
На новую машину установили свежий лицензионный софт. Семерка и Х5. Старый рабочий макрос на Х3, написанный по крупинкам перестал понимать некоторые команды. ScrollScreen к примеру.
Видимо не хватает какой то библиотеки. Подскажите как обучить машину.
Anderos64, нужно переписать макрос. Дело не в библиотеках (при условии что ВБА стоит), а в объектной модели, которая имеет свойства незначительно меняться из версии в версию.
Да макрос в принципе работает. Только некоторые команды потерялись. Поправлю конечно. ScrollScreen чем заменить к примеру?
А что она делал то, куда и зачем она экран прокручивала? Я просто не помню такой команды.
Она сдвигала рабочий стол влево.
ActiveDocument.ActiveWindow.ActiveView. а тут любую подходящую функцию на выбор, например SetViewArea, всё зависит от конкретной надобности.
Этот показывает какую-то часть документа. А мне надо документ сдвинуть влево до упора, т.к. справа открыто окно макроса. Как, пока не могу найти. Если подскажите, буду благодарен.
Если честно то до конца не понятно всё же что вы там двигать хотите и до какого упора. SetViewArea позволяет установить любую координату и зум для просмотра. Возможно просто нужно поменять значения Х и У. У ActiveView не так уж и много свойств/функция что бы заблудиться. Читайте их описания и делайте.
Создал пустой gms-файл в папке Program Files\Corel\CorelDRAW Graphics Suite 13\Draw\GMS, открыл Corel, затем редактор VB, написал процедуру, сохранил. Создал пустую панель.
Теперь в наличии имеется:
- процедура
- собственная пустая панель
Как мне теперь создать свою кнопку на пустой панели и назначить ей указанную процедуру ?
Пока можно только создавать кнопку с одновременным назначением её существующей команды. Причём в настройках невозможно создать свою команду.
Модератор
Ответ: Как создать кнопку и ассоциировать с ней процедуру ?
Вам программно или вручную?
вручную - Tools\Customization\Commands\Macros - вытаскиваете свою процедуру на созданную Вами панель. Редактируете иконку и отображаемую подпись, назначаете клавиатурное сокращение.
полуавтомат - ищите макрос wx_MacroInstaller.
программно - см. код макроса
зы. Последнее предложение практически не понял, что такое "её существующая команда" для кнопки? В каких настройках невозможно её создать?
Не надо благодарностей, жмите -
Cyrax
Ответ: Как создать кнопку и ассоциировать с ней процедуру ?
Вам программно или вручную?
вручную - Tools\Customization\Commands\Macros - вытаскиваете свою процедуру на созданную Вами панель. Редактируете иконку и отображаемую подпись, назначаете клавиатурное сокращение.
Вручную. Только что означает фрагмент "ThisMacroStorage." перед именем процедуры в списке макросов ?
Здесь возникает 2 вопроса:
1. Почему при закрытии документа все инструменты становятся неактивными, а мой инструмент (кнопка) остаётся активной ?
2. Можно ли сделать так, чтобы процедура (макрос) в истории изменений была представлена одной командой ? т.е. чтобы для отмены всех изменений, выполненных процедурой (макросом) достаточно было сделать одну отмену.
зы. Последнее предложение практически не понял, что такое "её существующая команда" для кнопки? В каких настройках невозможно её создать?
Sanchos
Sancho
Ответ: Как создать кнопку и ассоциировать с ней процедуру ?
Потому что ваша процедура находится в "ThisMacroStorage". вот поэтому и подписано в начале )))
1. Ну это логично ибо многие макросы работают без открытых документов. Если вас это напрягает, то озодачте свою голову сим вопросом. хелп и F2 вам в помощь)))
2. ищите на форуме или в макросах от wOxxOmа "boostStart" и "boostFinish"
Cyrax
Ответ: Как создать кнопку и ассоциировать с ней процедуру ?
Это модуль, который создаётся по умолчанию при создании gms-проекта ?
Тогда почему невозможно изменить его имя ?
1. Ну это логично ибо многие макросы работают без открытых документов. Если вас это напрягает, то озодачте свою голову сим вопросом. хелп и F2 вам в помощь)))
Мои макросы тоже не работают без открытых документов, только об этом кроме меня никто не знает.
В каком Help'е освещается данный вопрос - в Corel Draw X3 help или в Microsoft Visual Basic Help ?
Sanchos
Sancho
Ответ: Как создать кнопку и ассоциировать с ней процедуру ?
ThisMacroStorage создаётся по умолчанию и имеет своё значение немаловажное. Переименовать можно.
И совет небольшой - Прежде чем задать здесь вопрос, задайте его сначало самому себе. Помогает найти ответы на большинство вопросов ))))
Cyrax
Ответ: Как создать кнопку и ассоциировать с ней процедуру ?
Так и заставили в help лезть. )
CorelDRAW X3 Objects or Corel PHOTO-PAINT X3 Objects — used mostly for event handling, contains a single item (ThisMacroStorage or ThisDocument, respectively) and should not be used for normal code
Значит ли это, что я не смогу использовать события в модулях, находящихся за пределами группы CorelDRAW X3 Objects ?
И что означает normal code во втором выделении ? Если имеется ввиду код, не использующий события, то у меня там такой код (не использующий события) нормально работает.
To rename a project
1 In the Project Explorer, select the project you want to rename.
2 In the Properties window, edit the (Name) value.
Names must follow normal variable-naming conventions, so they must begin with an alphabetic character,
and they must not contain spaces nor special characters other than underscores ( _ ).
3 Press Enter to commit your changes.
Логично было реализовать возможность изменения имени и в контектном меню. Это многим бы облегчило жизнь.
з.ы. "To rename a project" следовало бы назвать как "To rename a project or module" (с соответствующими поправками далее), поскольку отдельного раздела "To rename a module" в документе dvba_pg.pdf нет.
И как получить доступ к документу "CorelDraw Graphics Suite X3 Programming Guide for VBA" (dvba_pg.pdf) из самого Corel'а ?
To access the CorelDRAW X3 VBA Help
1. Click Tools Visual Basic Visual Basic Editor.
2. Press F2.
The Object browser displays.
3. Choose CorelDRAW from the Library list box.
4. Press F1.
Ну а эти действия по открытию "Corel draw X3 VBA Help" интуитивно сложновоспроизводимы. Логичен выбор соответствующего пункта в меню Help редактора Visual Basic Editor.
Единственное оправдание - то, что редактор VB Microsoft'овский и встроить свои пункты меню было бы довольно затруднительно (хотя, думаю, и возможно).
Внимание! Для работы скриптов требуется VBA (Visual Basic for Applications) который входит в поставку и устанавливаетя вместе с CorelDraw. Если по каким-либо причинам VBA не был установлен необходимо запустить инсталлятор CorelDraw и на одном из шагов добавить его установку. При отсутствии VBA кнопки на панели RionScripts нажиматься будут, но ничего больше не произойдет - скрипты не будут запущены.
Для установки скриптов необходимо выполнить следующие действия:
1. Распаковать архив
Распакуйте скачаный архив в любую временную папку и скопируйте все файлы с расширением .gms в папку:
Версия CorelDraw | Папка для размещения скриптов в Windows 7,8,10 |
---|---|
CorelDraw 2020 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2020\Draw\GMS |
CorelDraw 2019 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2019\Draw\GMS |
CorelDraw 2018 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2018\Draw\GMS |
CorelDraw 2017 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2017\Draw\GMS |
CorelDraw X8 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite X8\Draw\GMS |
CorelDraw X7 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite X7\Draw\GMS |
CorelDraw X6 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite X6\Draw\GMS |
Точный адрес папки может выглядеть иначе в зависимосте от того, где точно у вас установлен CorelDraw и какая его версия. В любом случае файлы gms должны быть перенесены в папку \Draw\GMS\ вашего пакете CorelDraw.
Обновление — август 2012
В августе 2012 года мы провели радикальное обновление набора бесплатных макросов для CorelDraw.
-
В новой версии 3.7:
- протестирована совместимость с новой версией CorelDraw X6 - все работает
- теперь можно отменить изменения внесенные в файл макросом с помощю команды Undo
- благодаря применению нового алгоритма обработки объектов радикально увеличина скорость работы макроса по замене цвета
- макрос, переводящий текст в кривые, теперь может сохранять специальную копию документа в кривых
Рекомендуем всем провести обновление скриптов до новой версии. Для этого замените все файлы gms на новую версию. Подробнее смотрите в инструкции по установке.
Вам нужно изготовить полиграфическую продукцию?
Будем рады Вам помочь!
Макросы в CorelDraw, начиная с версии Х4 пишутся и выполняются в лицензированной у фирмы Microsoft программной среды VBA (Visual Basic for Application), которая на самом деле весьма распространена среди крупных разработчиков программного обеспечения, и используется в таких как Mocrosoft Office, SolidWorks, AutoCAD и ряда других. Макрос написанный в этой среде, представляет собой интерпретируемый скрипт + набор форм (по сути диалоговых окон), хранящихся в определённом формате. Всё вместе это пакуется в один файл, с расширением gms. Должен отметить, что разные версии CorelDraw, использовали разные версии VBA (начиная с 6.0 и до 7.1), и они не всегда совместимы. Поэтому, следует учитывать что макросы написанные в более поздней версии CorelDraw, могут не работать в более ранних версиях.
Макросы моей разработки являются почти стандартными макросами CorelDraw, но при этом используют ряд системных библиотек Windows. В связи с этим, иногда возникают проблемы у пользователей, которые пользуются пиратскими версиями CorelDraw, в которых часть требуемых для работы файлов видимо исключена для большей компактности. Так же могут наблюдаться проблемы, когда в CorelDraw инсталлирован addon RDWorks, идущий в комплекте с некоторыми лазерными станками. Видимо он что то подменяет в процессе инсталляции и макрос «Конструктор шкатулок» перестаёт функционировать!
Инсталляция макросов
Инсталляция макросов на, текущий момент, представляет собой простое копирование приобретённых макросов в папки, которые используются программой CorelDraw для макросов. Причем, возможных путей два!
Первый путь — это путь к папке, к которой будут иметь все пользователи операционной системы. Он имеет вид:
32 битные версии Windows и 32 битная версия CorelDraw или 64 битные версия Windows и 64 битная версия CorelDraw :
БукваДиска:\Program Files\Corel\НаименованиВерсииCorelDraw\Draw\GMS
64 битные версия Windows и 32 битная версия CorelDraw:
БукваДиска:\Program Files(x86)\Corel\НаименованиВерсииCorelDraw\Draw\GMS
Второй путь — путь к папке конкретного пользователя. Макрос, помещаемый подобным образом, доступен только для этого пользователя! Эти пути в разных версиях операционных системах Windows немого различаются.
Windows XP:
БукваДиска:\Documents And Settings\ИмяПользователя\Program Settings\Corel\НаименованиВерсииCorelDraw\Draw\GMS
Windows 7 и дальше:
БукваДиска:\Пользователи (или Users)\ИмяПользователя\AppData\Roaming\Corel\НаименованиВерсииCorelDraw\Draw\GMS
Следующее, что стоит отметить, что из-за определённых настроек самого CorelDraw, иногда макрос остаётся невидимым для диспетчера макросов. В таком случае, макрос нужно добавить вручную! Для этого, в диспетчере макросов (панель диспетчера вызывается через комбинацию клавиш Alt+Shift+F11, или через меню Инструменты\Макросы\Диспетчер макросов или в английской версии: Tools\Macro\Dispatcher macro), нужно выбрать вверху пункт «Загрузить» (Load macro) и далее в появившемся окне, указать путь и сам файл требуемого файла. Он тут же должен появиться в списке макросов!
Запуск макроса можно осуществить либо щелчком по нужному макросу, раскрывая последовательно все древовидные вкладки. пока не появится доступ к функции запуска, например для макроса «Конструктор бумажных шкатулок»: PaperBoxConstructor\PaperBoxBasic\StarFunction, либо, что более удобно, создать кнопку быстрого запуска для каждого нужного макроса. Как это сделать, можно ознакомиться например в «Руководстве пользователя макроса «Конструктор шкатулок«.
Активация макросов
Макросы имеют привязку к железу системного блока, и поэтому не являются переносимыми. Увы, переносимая версия для такого рода программ практически нереальна. Но, для того, чтобы немного смягчить эту проблему, я использую очень гибкую ценовую политику, при которой вторая лицензия существенно дешевле первой, что позволяет использовать макрос на нескольких компьютерах сразу.
Процесс активации подробно разобран в «Руководстве пользователя макроса «Конструктор шкатулок«. Здесь лишь хочу добавить, что в ряде случаев, таких как существенное изменение конфигурации системного блока, использование некоторых внешних носителей, обновление операционной системы, происходит сбой активации. К сожалению, я не могу обойти эту проблему полностью, но начиная с версии 0.97.2 для «Конструктора шкатулок» и 0.37 «Конструктор бумажных коробок» немного изменился алгоритм активации, и такие срабатывания должны происходить существенно реже!
Обновление макросов
Обновление макросов представляет собой обычную замену поверх более старой версии. Новая версия, обычно располагается по тому же самому пути, который пользователь получает при приобретении макросов. Поэтому, этот путь стоит где нибудь сохранить! Какая самая последняя версия макроса можно узнать одним из следующих способов:
Первый — посмотреть ленту новостей на этом сайте в рубрике соответствующего макроса (я практически всегда делаю заметку о новых версиях и в заголовке заметок почти всегда есть номер версии о которой идет речь).
Второй способ — посмотреть на этом же сайте специальный документ с версиями и описанием изменений:
Ссылка на хронологию для макроса «Конструктор шкатулок»
Третий, это в самом макросе, при условии что компьютер на котором стоит макрос имеет доступ в сеть интернет, можно попробовать использовать сервисную функцию проверки последней версии макроса. Увы, не у всех она работает должным образом, но у тех кого она работает, она покажет как версию последнего обновления, так и адрес, по которой она лежит. Доступ к этой сервисной функции находится в форме «Помощь» (вызывается из стартового меню нажатием на кнопку «Помощь»), во вкладке «Обновления». Если всё проходит успешно, то будет подобный результат(показан результат для макроса «Бумажные коробки»:
К сожалению, далеко не у всех этот сервис работает! В чём причина мне пока не ясно, но пока это не 100% работающий сервис. Остальные же могут самостоятельно получать изменения адреса скачивания обновлений, в случае если он сменится!
Обновление — май 2016
Наши скрипты на сайте обновлены до версии 3.8, основные изменения:
- Добавлена панель инструментов в формате CorelDraw X8 - она входит в архив со скриптами или вы можете её скачать отдельно по этой ссылке.
- Теперь скрипты подходят одновременно как к версиям CorelDraw x32 так и к x64 - больше нет необходимости выбирать нужный вариант для установки.
- Внесены ряд улучшений в работу скрипта проверки документа - в частности при обработки теней.
Обновление — февраль 2020
Исправлены ошибки и внесены исправления предложенные пользователями наших скриптов. Протестирована и улучшена совместимость с CorelDraw 2019 и CorelDraw 2020.
Обновление — март 2019
Вместе с обновлением сайта мы обновили панели инструментов скриптов и инструкции по установки для поддержки CorelDraw 2018.
2. Импортировать панель скриптов
Откройте любой документ в CorelDraw или создайте новый. После этого вы сможете войти в меню Инструменты->Параметры->Рабочие пространства . В открывшемся диалоге нажмите кнопку Import и укажите путь к файлу из архива RionScriptsX6.xslt (для CorelDraw X5 или X6), RionScriptsX7.cdws (для CorelDraw X7) или RionScriptsX8_2020.cdws (для CorelDraw версий с X8 по 2020) с описанием панели и завершите последующие этапы импорта.
1. Распаковать архив
Распакуйте скачаный архив в любую временную папку и скопируйте все файлы с расширением .gms в папку:
Версия CorelDraw | Папка для размещения скриптов в Windows 7,8,10 |
---|---|
CorelDraw 2020 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2020\Draw\GMS |
CorelDraw 2019 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2019\Draw\GMS |
CorelDraw 2018 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2018\Draw\GMS |
CorelDraw 2017 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2017\Draw\GMS |
CorelDraw X8 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite X8\Draw\GMS |
CorelDraw X7 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite X7\Draw\GMS |
CorelDraw X6 | C:\Users\ИМЯ ПОЛЬЗОВАТЕЛЯ\AppData\Roaming\Corel\CorelDRAW Graphics Suite X6\Draw\GMS |
Точный адрес папки может выглядеть иначе в зависимосте от того, где точно у вас установлен CorelDraw и какая его версия. В любом случае файлы gms должны быть перенесены в папку \Draw\GMS\ вашего пакете CorelDraw.
Обновление — январь 2014
Пока мы добавили только одну, но важную возможность - теперь все скрипты беспроблемно работают с 64 версией CorelDraw.
3. Включить панель скриптов
Нажмите правую кнопку в любой области с панелями CorelDraw. В списке доступных панелей вы увидите пункт RionScripts. Включите панель нажав на ее название.
По центру экрана откроется панель со скриптами которую вы можете пристыковать к другим панелям в любом удобном для вас месте.
Для ускорения отдельных операций в CorelDraw нашими специалистами разработан ряд скриптов (их таже называют макросы). Некоторые из них вы можете найти здесь, загрузить и использовать в вашей работе. К загрузке подготовлен набор из нескольких скриптов и дополнение к панели инструментов CorelDraw из которой они легко доступны. Описание каждого скрипта вы можете найти в его разделе. Скрипты предназначены для CorelDraw Suite версии с Х5 по 2020.
Перевод текста в кривые
Параметры обводки
Экспорт в jpeg
Проверка верстки
Обновление — декабрь 2016
Обновление до версии 3.82 - переработана логика сохранения изображений в скрипте экспорта в jpeg. Теперь сохранение более универсально и подходит для большого диапазона применений.
Обновление — сентябрь 2016
Небольшое обновление до версии 3.81 - благодаря полученным замечаниям от пользоватлей исправлены недочеты в работе скрипта по замене цвета объектов. Также мы внесли небольшие корректировки в другие скрипты для повышения удобства и стабильности в их работе.
Для тех, кому интересно - мы выложили новый ролик на VK и в Facebook об одном из наших внутренних скриптов для генерации переменных данных (номеров и штрих-кодов) в CorelDraw.
Обновление — октябрь 2014
В новой, выпущенной в этом году, версии CorelDraw X7 был изменен формат хранения данных для рабочего стола. Старый формат панели инструментов RionScripts.xslt, поставляемый с нащими скриптами, не подходит для новой версии пакета. Поэтому мы подготовили совместимый вариант панели. Если вы устанавливаите скрипты в X7 используйте файл с панелью инструментов RionScripts.cdws
Оба панели для X6 и X7 включены в общий архив со скриптами. Если же вы уже загрузили скрипты и вам нужна только новая панель для CorelDraw X7, то загрузите её по данной ссылке:
панель инструментов RionScripts для CorelDraw X7
Обновление — июнь 2017
Мы протестировали наши скрипты с новой версией CorelDraw 2017 - все работает! Скопируйте скрипты в папку пользователя и загрузите панель для CorelDraw X8. Подробнее в инструкции по установке.
Читайте также: