Несколько контуров Coreldraw в VBA

Ребята, я пытаюсь настроить трехцветный текст, который можно редактировать.

В основном я хочу, чтобы текст был черным

1-й контур 1 мм белого цвета

2-й контур толщиной 2 мм черного цвета

Я пробовал следующий двухступенчатый контур

ActiveSelection.CreateContour cdrContourOutside, 2, 2, , , CreateRGBColor(0, 0, 0), CreateRGBColor(255, 255, 255)

это отлично работает, как я хочу, и когда я редактирую текст, контур меняется на новый текст, однако контуры имеют одинаковую ширину (2 мм), а не 1 и 2 мм, как я хочу

Также я не могу заставить его указать правильный цвет для каждого контура

Если я разобью 1-й контур, а затем добавлю еще один, это даст мне контуры разной ширины и цвета, но затем я потеряю возможность редактирования, поскольку контур не прикреплен к тексту.

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

Любая помощь приветствуется

Отметка


person user3422687    schedule 03.02.2019    source источник


Ответы (1)


Лучшее, что я могу для вас сделать, это показать вам объектную модель. У меня нет CorelDraw и поэтому я ничего не могу проверить.

Вот ссылка на объектную модель CorelDraw. http://apps.corel.com/partners_developers/csp/resources/CorelDRAW%20VBA%20Object%20Model.pdf

А вот ссылка на Руководство по программированию для CorelDraw. http://apps.corel.com/partners_developers/csp/resources/dvba_pg.pdf

Вы можете посмотреть «Применение эффектов» на странице 72 руководства по программированию, это может вам помочь.

Я бы предложил также посмотреть на создание кривых из объекта .Shapes, а затем посмотреть на объект TextRange. свойство TextRange.Text — это фактический текст, который вы хотите видеть, а TextRange.colorindex — это цвет текста, который я считаю. Вам придется провести некоторое исследование, но это должно помочь.

person IAmNerd2000    schedule 03.02.2019
comment
Спасибо за это, но, к сожалению, ссылки не работают - person user3422687; 04.02.2019
comment
попробуйте те, что ниже. Я просто вставил ссылку на полный текст. Вышеупомянутое должно было сработать. - person IAmNerd2000; 04.02.2019