[CDR 2024] Изменение заливки фона текста

[scandi]

Добрый день.
Не могу найти в vba аналог строки меню в программе CorelDRAW 25.0 "Изменить параметры фона символа в Параметрах заливки" на значение "Без заливки".
После создания параграфа текста требуется установить белый цвет для текста и убрать заливку фона (по умолчанию текст и заливка фона черного цвета).

Dim p As CorelDRAW.shape
Set p = ActiveLayer.CreateParagraphText(x, y, x + width, y + height, text, , , "Arial", 12)
p.Fill.UniformColor.CMYKAssign 0, 0, 0, 0

Появляется белый цвет текста, а установить фон текста "Без заливки" не получается. Поиск в объектной модели результатов не дал. При записи макроса vba отказывается обработать команду TextEdit. Разные ИИ предлагают варианты, приводящие к ошибкам компиляции или использованию методов, которые не работают (error 438). I need help.

 

[_MBK_]

Я, к примеру, тоже из вашего обьяснения не понял, что такое "фон текста"?

 

[scandi]

Фон для всех символов параграфа текста. (Свойства параграфа текста -> Символ -> Изменить параметры фона символа -> ... вместо Однородная заливка указать Без заливки)

 

[DukereD]

Фон для всех символов параграфа текста. (Свойства параграфа текста -> Символ -> Изменить параметры фона символа -> ... вместо Однородная заливка указать Без заливки)

всё очень быстро находится через объектную модель

s.text.Story.Paragraphs.First.CharBackFill.ApplyUniformFill CreateRGBColor(255, 0, 0)

 

[scandi]

Благодарю за ответ, там не посмотрел. К сожалению, этим методом можно только изменить цвет фона.
Метод p.text.Story.Paragraphs.first.CharBackFill.ApplyNoFill не приводит к состоянию Без заливки(

 

[_MBK_]

На самом деле ваша ситуация более чем странная. По умолчанию параграфтекст должен без фона создаваться, в вашем случае

по умолчанию текст и заливка фона черного цвета

- это как, черное на черном?

 

[scandi]

Да, черное на черном. Почти всегда создается без фона, но иногда получается такая проблема. Хотелось бы принудительно удалять такой фон.