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

  1. dastin

    [CDR 2017-2023] Имя файла из буфера обмена.

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

    [CDR 2017-2023] инструмент "ПОИСК": найти пунктирные кривые

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

    [CDR 2017-2023] Имя файла из буфера обмена.

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

    [CDR 2017-2023] Имя файла из буфера обмена.

    ну да, что-то типа по мотивам 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 =...
  5. dastin

    [CDR 2017-2023] Внутренняя тень

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

    [CDR 2017-2023] Внутренняя тень

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

    [CDR 2017-2023] Внутренняя тень

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

    [CDR 2017-2023] DropShadowDocker бесплатный и с открытым кодом

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

    [CDR 2017-2023] DropShadowDocker бесплатный и с открытым кодом

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

    [CDR 2017-2023] Внутренняя тень

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

    УРАЛ ЭНЕРГОТЕЛ [Futuris]

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

    [CDR 2017-2023] инструмент "ПОИСК": найти пунктирные кривые

    надо делать запрос на СТИЛЬ аутлайна, если аутлайн есть и если он не сплошной - то сделать его таковым например 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 =...
  13. dastin

    Греческий алфавит к charter

    Tinos посмотрите
  14. dastin

    Понизьте версию, плиз (CorelDRAW)

    Х7
  15. dastin

    Понизьте версию, плиз (CorelDRAW)

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

    [CDR X5-X8] Перекраска пантонов в одну палитру.

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

    Понизьте версию, плиз (CorelDRAW)

    13
  18. dastin

    [CDR X5-X8] Перекраска пантонов в одну палитру.

    Либо всё перегоняйте все пантоны в CMYK выставив в Color Management Setting соответствующую настройку
  19. dastin

    [CDR X5-X8] Перекраска пантонов в одну палитру.

    ну ладно 485С и 485CVC - хотя по значениям CMYK - это уже не одно и то же ... но 485С и 485U в одном макете - это как? Кто такие шедевры ваяет? я бы использовал макрос Oberon ColorReplacer, либо его более продвинутый вариант lf_ColorReplacer29.3.8 - суть в поиске одного пантона и замене его...