V-Форум / Corel VBA / Тема: Огромная коллекция макросов для Corel12/X3

Огромная коллекция макросов для Corel12/X3

08/04/2006 20:20:50 #Link

Огромная коллекция макросов для Corel12/X3

downsampleBitmaps - уменьшает dpi выбранных битмапов до введенного
bitmapsIntoPowerclips - все битмапы засовывает в поверклипы чтоб удобнее обводки было делать
selectSameFillColor - выделяет все такого же цвета как и текущий (если капслок включен - то спрашивает чувствительность к цвету)
selectSameFillAndOutline - т.ж. по цвету и обводке
selectSameOutline - т.ж. по обводке
ConvertShapesToCMYK - все выделенные в cmyk
ChannelMixer - миксер cmyk каналов для кривых. версия0.1
makeOutlineSameAsFill - делает обводки такого же цвета что и заливки
removeUnderlyingDups - убирает точные копии кривых, лежащие друг под другом
DrawCrops - кресты рисует простые для совмещения
makeBoundingGuides - рисует гайды по границам выделенного
sizePagetoFIT - меняет размер страницы под размер объектов
rotateLeft01 - крутит объект на 0.1 градуса влево
rotateRight01 - вправо
selectSmallObjects - в выделенном ищет мелкие объекты (меньше заданного числа) и выделяет (для последующего удаления)
DecreaseOutline - уменьшает обводку выделенного (учитывает предыдущую и отнимает от нее. Если капслок включен то отнимает 0.03 мм)
IncreaseOutline - т.ж. увеличивает
InvertSelection - инвертирует выделение объектов
DrawGuideHorizontal - гайда гориз. по курсору мыши
DrawGuideVertical - гайда верт. по курсору мыши
outlineCornersRound - устанавливает свойства обводки на сглаженные углы
outlineBehind - устанавливает свойства обводки - под низ
fixBlendControlShapeAngle - испроавляет глюк на сложных блендах с крученим объектов
repeatLast - повтор последней команды заданное число раз
collectPages - собирает все страницы на одну, в длинный столбик
guidesToggleEdit - переключает редактируемость гайд (чтоб не хватались и не мешали)
ForEach - повторяет последний трансформ объекта для кучи выделенных индивидуально
pageNamesAsNumbers - убирает из названий страниц внизу экрана слово "Page" - оставляя только номера (удобнее смотреть когда много страниц)
OutlinesNonScaled - вырубает масштабирование обводки в свойствах всех выделенных объектов
textinfo - хватает весь текст на странице, даже тот что в группах и powerclip БЕЗ РАЗГРУППИРОВАНИЯ, удобно для последующего нажимания CtrlQ
DecreaseLineSpacing - расстояние между строками текста минус 1%
IncreaseLineSpacing - расстояние между строками текста плюс 1%
DecreaseLineSpacing10 - расстояние между строками текста минус 10%
IncreaseLineSpacing10 - расстояние между строками текста плюс 10%
setTextLangRussian - назначает тексту русский язык
colorizeTill2ndTab - образец макроса - красит другим цветом до первой/второй табуляции
RussianPropis - русская пропись числа
oldFormatText - для CorelX3 - вызывает старый родной диалоговый бокс форматирования текста
ZoomOutBack - вешается в CorelDrawX3 на F3 - и восстанавливает правильное поведение клавиши F3
ZoomPlus - масштаб экрана + 10%
ZoomMinus - масштаб экрана -- 10%
ZoomAboutObject - почти Shift-F2 только с полями
ScrollPageDown - вешаем на CtrlAltNumlock2 - прокручивает на один экран вниз
ScrollPageUp - вешаем на CtrlAltNumlock8 - прокручивает на один экран вверх
ScrollPageLeft - вешаем на CtrlAltNumlock4 - прокручивает на один экран влево
ScrollPageRight - вешаем на CtrlAltNumlock6 - прокручивает на один экран вправо
ScrollPageDownRight - вешаем на CtrlAltNumlock3 - прокручивает на один экран вниз и вправо
ScrollPageUpRight - вешаем на CtrlAltNumlock9 - прокручивает на один экран вверх и вправо
ScrollPageDownLeft - вешаем на CtrlAltNumlock1 - прокручивает на один экран вниз и влево
ScrollPageUpLeft - вешаем на CtrlAltNumlock7 - прокручивает на один экран вверх и влево
ShowHideToolbars - убирает/показывает менюшку/интсрументы - чтоб было больше на экране видно работы

Установка:
1. Копируем из архива "zzOsman.gms" в каталог c:\Program Files\Corel\CorelDRAW Graphics Suite 13\Draw\GMS\
для Корела 12 надо в почти такой же но с цифрой 12
если нету в "\draw" каталога гмс, то создаем его
2. перезапускаем корел, идет в настройки интерфейса "tools->options-customization-commands" по русски: опции-настройка-команды,
выбираем в верхнем выпадающем списке "макросы", тянем нужные макросы на любимое место в панели или вешаем клавишу

П.С. код открыт. Всем открытая дорога чтоб дописать чего душе угодно. Если что-то совсем не нужно можно удалить чтоб не мешали из кода - начиная sub заканчивая endSub (кроме boostStart/boostFinish

Загрузить:

zzOsman.zip Размер: 77.62 KB; Скаченно: 3667

Re: Огромная коллекция макросов для Corel12/X3

08/04/2006 23:51:43 #Link

Glebka

Я - фанатик макросов. В шопе особенно. Но в Кореле - вне конкуренции!!! Спасибо! Буду использовать!

Re: Огромная коллекция макросов для Corel12/X3

08/04/2006 23:59:17 #Link

asat

а к 11-му подойдет?

Re: Огромная коллекция макросов для Corel12/X3

09/04/2006 14:29:46 #Link

oglushevich

Цитата:

asat пишет:
а к 11-му подойдет?

asat стафь уже скорей 13 или он же Х3 не пожалеешь если надо русик могу кинуть , но ангельский лучшееее

Re: Огромная коллекция макросов для Corel12/X3

09/04/2006 18:00:32 #Link

wOxxOm

Rtrim - вообщето стандарт для бейсика в корел12,13. А в 11 не знаю, можно ее убрать (вместе с одной открывающей и потом одной закрывающей скобкой - это просто убирает какие-то пробелы).
ЕСЛИ ПИШЕТ ЧТО НЕ ХВАТАЕТ БИБЛИОТЕКИ В КОРЕЛ12 или 11 то надо когда покажется ошибка в визуалБейсик редакторе в Tools->References отжать библиотеку корела 12 или 13 (смотря какого у вас нет)

P.S. вдруг кто не знает - фришные и не только

крутые макросы на oberonplace.com и isocalc.com (cooltools)