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

не факт, что каждую такую линию Corel примет как родную ... это же его единоутробные стили ... каждый имеет вполне определенные параметры - типа ... .Style.DashCount = 2 .Style.DashLength(1) = 1 .Style.DashLength(2) = 10 .Style.GapLength(1) = 4 .Style.GapLength(2) = 4 а что...

Запросить можно If s.Outline.Type = cdrOutline Then i = s.Outline.Style.Index MsgBox i End If получите что-нибудь из диапазона - 0( сплошной) и далее вниз 1, 2, 3 ... до 28 ( можно ещё создавать и сохранять свои) Что вам это даст? Это просто число ...

Может это вам поможет? Что нового в CorelDRAW 2019? ... Дизайн с точностью до пикселя. Убедитесь в высоком уровне точности вашей веб-графики. Выравнивание пиксельной сетки по краю страницы гарантирует наличие четких границ у каждого экспортируемого графического элемента, а новая кнопка...

он всяко будет Dirty т.к. Set p = ActiveLayer.Paste а потом p.Delete ... но, не стану возражать :)

... но зато залезает в группы.

Остался один вопрос: - Что случится, если в буфере, возможно случайно, окажется нечто вот такое?

ну да, что-то типа по мотивам SaveAsOldVersion Sub NNN() Dim str As String, p As Shape Dim Path As String Dim SaveOptions As StructSaveAsOptions Path = ActiveDocument.FilePath Set p = ActiveLayer.Paste If p.Type = cdrTextShape Then str = p.Text.Story MsgBox str Set SaveOptions =...

цвет текста задавать поверклипом, внутренний с тенью - без заливки исходник-образец

Fill None ... только контур

... возможно будет непонятно - это и есть поверклип - для облегчения можно ему сначала задать цвет контура отличный от белого, а в белый перевести после

'yes' ... при одинаковых параметрах 2018 2019

пользуемся английским ... 'opa!)' в DropShadowDocker.DLL видимо надо править

Попробовал воспроизвести ... Создаём текст - белый - чёрный контур - DropShadow со смещением - направление Middle - тип линейный Поверх - тот же текст с белым контуром, без заливки, без перевода в кривые текст с тенью помещаем в поверклип теперь попробуем поменяем текст - МАМА МЫЛА ГИВИ - на...

А написал-то неправильно ... не нью, а PT FuturisExtraCondensed Cyrillic сорри

надо делать запрос на СТИЛЬ аутлайна, если аутлайн есть и если он не сплошной - то сделать его таковым например Sub Test10() Dim s As Shape For Each s In ActivePage.Shapes If s.Outline.Type = cdrOutline Then If s.Outline.Style.Index <> 0 Then s.Outline.Style =...

Tinos посмотрите

Х7

Спасибо, конечно ...

добавлю - сразу ВСЕ ВХОЖДЕНИЯ ПАНТОНА во всех открытых документах - один раз указали что на что менять - нажали на пимпу и всё и зачем вам тогда пантон 485U ??? ... дизайнерам респект - всем шоколадку на новый год - непременно