Результаты поиска

Ответ: Штрих-код в Corel. Нужен совет. Не знаток конечно, но может эта информация окажется полезной. Для распознания кодов использую FineReader. Проверил, он тоже не понимает нижнего кода, верхний распознает правильно.

Ответ: Качество трассировки в 13-м Corel'е... Вот так. Sub LayerVis2() Dim L As Layer If Documents.Count = 0 Then Exit Sub For Each L In ActivePage.Layers If Not L.Visible Then L.Visible = True Next End Sub

Ответ: Качество трассировки в 13-м Corel'е... Подобные вопросы легко решаются с помощью макросов. Скорей всего так и поступают, наверное не дураки же карты рисуют ). Например макрос, делающий невидимыми все слои кроме активного на текущей странице, пишется за 2 мин и занимает пять строчек кода...

Ответ: Замена стартового диалога и истории последних файлов в Кореле12/X3 Я так и понял, соответственно не могу понять, кто, куда и чего переносит? По поводу системы, у меня XP SP2 довольно приличной захламленности и КорелX3 SP2. Работаю под юзером с правами админа, места на всех дисках...

Ответ: Замена стартового диалога и истории последних файлов в Кореле12/X3 Давно что-то никто ничего здесь не писал. Поставил себе последнюю версию, здорово! Немного портит дело только одна вещь. Время от времени выскакивает окно, прикладываю его к посту.

Ответ: Нужен Макрос пакетной верстки За $ это интересно. Ответил в личку.

Ответ: Подскажите как заменить цвет Возможно, но с помощью макросов. Например wx_CDRSaveOldVersion. Ищите здесь (там куча еще всего полезного) http://recentfiles.netfirms.com/ru.html Кстати для замены цвета, если часто приходится этим заниматься, тоже намного удобнее пользоваться макросами...

Ответ: помогите с макросом 2 инверсия цвета К сожалению не всегда есть время чтобы отвечать на форуме. Вижу что, Sanchos уже ответил, решил все равно написать. Вы делали все правильно, только окривлять надо не все объекты на странице, а то что у нас выделено. И чтобы инверсия прошла нормально...

Ответ: помогите с макросом Bitmap + контур Вот, всю ночь работал над кодом (шутка). :) Попробуйте, должно работать. На всякий случай добавил условие, чтоб запускался только если выделен 1 объект. Sub res() Dim Contur As Shape, Dup As Shape If Documents.Count = 0 Then Exit Sub If...

Ответ: помогите с макросом Bitmap + контур Тогда возникает еще вопрос. 3. Выделить все. Все, это конкретно объекты внутри контура, или на странице больше ничего нет кроме этих объектов и контура? Просто если есть, тогда придется еще определять, что у нас внутри него, а что нет.

Ответ: помогите с макросом Bitmap + контур Кидайте код, что записалось. Если, как я понял, вас в нем все устраивает кроме п.2, исправления будут минимальными. Видимо задается какой-то конкретный размер копии, надо изменить просто, чтобы он вычислялся от оригинального +2мм.

Ответ: Corel и OLE Можно еще OLE объект побороть методом Copy->Paste Special Подробности можно найти на форуме.

Ответ: Макрос для ХЗ для сборки визиток Ну действительно, если Shaping это делает, то к чему тогда заморочки. Я просто не в курсе, не пользовался никогда им. Найдете поиском по слову Shaping. Правда не знаю какие Корелы он поддерживает, есть сомнения насчет 11-го, спросите автора. :)

Ответ: Макрос для ХЗ для сборки визиток По 11-й никогда не писал ничего, и у меня его нет, проверить не могу... Но судя по ошибке (438 - Object doesn't support this property or method) скорей всего в нем нет свойств у Shape типа RightX, TopY... Ну это не проблема, легко и самим их вычислить...

Ответ: Макрос для ХЗ для сборки визиток У _MBK_ вроде, насколько я понял, и не стояла задача оптимального раскроя. У него уже все и так расположено как надо, задача только подбить все встык.

Ответ: Макрос для ХЗ для сборки визиток Вот родил чего-то тут.. В простейшем случае, когда все куски одинакового размера, например визитки, вроде работает. Вобщем накидываем на лист визитки, расставляем их приблизительно, на глазок, выделяем и запускаем макрос. Если так подойдет, можно и метки...

Ответ: Bitmap overprint Можно обманным способом назначить оверпринт на битмап, выделив вместе с ним какой-нибудь векторный объект и задать оверпринт для них обоих. Или написать макрос из одной строчки для установки оверпринта, что-то типа ActiveShape.OverprintOutline = True или...

Ответ: Команда VBA в кореле для присвоения объекту контура цвета - регистрейшин! s.Outline.Color.RegistrationAssign

Ответ: Можно ли средствами VBA переименовать цвет в палитре? Конечно возможно. В активной палитре , например, изменить имя первого цвета можно так - ActivePalette.Colors(1).SetName "Имя". Единственный вопрос, откуда 2000 имен брать?

Ответ: Шаблоны в виде кнопок на меню Я бы сделал простенький макрос, в котором создал бы форму с нужным кол-вом кнопок. Вызываешь макрос, появляется форма, нажал на кнопочку, нужный файл и открылся.