Буквы в разные цвета ?

[teplotaya]

как бэ такой скрипт/макрос замутить что бы как на картинке
случайные цвета к блоку теста каждой букве

 

[Fog_patch]

Ответ: Буквы в разные цвета ?

Воспользовавшись генератором случайных чисел вестимо.

Вот для выделенного фрейма:

Sub EveryCharToColor()
Dim t As Text
Dim s As Shape
Dim c_ As Long, m_ As Long, y_ As Long, b_ As Long
Dim myCh As Long

Set s = ActiveSelection.Shapes(1)
Set t = s.Text

Randomize
For myCh = 1 To t.Story.Characters.Count
    c_ = Int(Rnd * 100)
    m_ = Int(Rnd * 100)
    y_ = Int(Rnd * 100)
    b_ = Int(Rnd * 40)
    t.Story.Characters(myCh).Fill.UniformColor.CMYKAssign c_, m_, y_, b_
Next myCh

End Sub

Вот для выделенного текстового фрагмента:

Sub SelectedCharToColor()
Dim t As Text
Dim s As Shape
Dim c_ As Long, m_ As Long, y_ As Long, b_ As Long
Dim mySl As TextRange

Set mySl = ActiveShape.Text.Selection

Randomize
For myCh = 1 To mySl.Characters.Count
    c_ = Int(Rnd * 100)
    m_ = Int(Rnd * 100)
    y_ = Int(Rnd * 100)
    b_ = Int(Rnd * 40)
    mySl.Characters(myCh).Fill.UniformColor.CMYKAssign c_, m_, y_, b_
Next myCh

End Sub

Работает всё это добро очень не быстро, особенно первый пример. И конечный результат Корел прорисовывает тоже не слишком радостно. Можете это как-нибудь оптимизировать. В частности woxxom давал советы.