[CDR X5-X8] Вывести текст заданным цветом

[NemoSUN]

Есть макрос:

Sub Macr()
  ActiveLayer.CreateArtisticText ActivePage.CenterX, ActivePage.BottomY, AnyName, _
  cdrRussian, , "Arial", 12, cdrTrue, cdrFalse, , cdrCenterAlignment
End Sub

Нужно задать определённый цвет выводимого цвета на слой. Пишу так:

Sub Macr()
  ActiveLayer.CreateArtisticText ActivePage.CenterX, ActivePage.BottomY, AnyName, _
  cdrRussian, , "Arial", 12, cdrTrue, cdrFalse, , cdrCenterAlignment
  ActiveLayer.CMYKAssign 0, 50, 50, 0
End Sub

Но в этом случае текст вообще не выводится на слое.

 

[lev]

Вы бы запись макросов включили, да поразглядывали, что получается, а то вместо объекта слой красить пытаетесь

Sub Macr()
  ActiveLayer.CreateArtisticText(ActivePage.CenterX, ActivePage.BottomY, AnyName, _
  cdrRussian, , "Arial", 12, cdrTrue, cdrFalse, , cdrCenterAlignment).Fill.UniformColor.CMYKAssign 0, 50, 50, 0
End Sub

 

[NemoSUN]

Вы бы запись макросов включили, да поразглядывали, что получается, а то вместо объекта слой красить пытаетесь

С удовольствием. Только пока не знаю как.

Сработало так -
ActiveDocument.ActiveLayer.CreateArtisticText ActivePage.CenterX, ActivePage.BottomY,
cdrRussian, , "Arial", 12, cdrTrue, cdrFalse, , cdrCenterAlignment
ActiveShape.Fill.UniformColor.CMYKAssign 0, 50, 50, 0