Re: CorelDRAW VBA : Создание текста

Написал GoodvinVV в 21/02/2008 10:37:54

Спасибо за метод, мне оказалось достаточно вот этого...

ActiveDocument.Unit = cdrMillimeter
With ActiveLayer.CreateArtisticText(10, 20, "CMYK", cdrRussian, cdrCharSetRussian, _
"Arial", 12, Bold:=cdrTrue, Italic:=cdrFalse, Underline:=cdrNoFontLine, _
Alignment:=cdrCenterAlignment)
.Text.Story.CharSpacing = 100
.Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 100)
End With

ActiveShape.Text.Story.Characters(1).Fill.ApplyUniformFill CreateCMYKColor(100, 0, 0, 0)
ActiveShape.Text.Story.Characters(2).Fill.ApplyUniformFill CreateCMYKColor(0, 100, 0, 0)
ActiveShape.Text.Story.Characters(3).Fill.ApplyUniformFill CreateCMYKColor(0, 0, 100, 0)
ActiveShape.Text.Story.Characters(4).Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 100)

Еще раз спасибо!!!