| Author |
 Topic  |
|
|
gromozeka
11 Posts |
 Posted - 11/14/2005 : 11:56:45
|
Подскажите , пожалуйста....
В шейп надо забить строку,, строка из нескольких слов,, каждое слово должно быть на новой строке- т.е. после каждого слова стоит enter...
Не пойму как в текст загнать что то подобное...
в с++ есть "\n" - что есть переход на новую строку....
А здесь как быть!?!?
заранее спасибо |
|
|
Tumanov
Russia
1198 Posts |
Posted - 11/14/2005 : 18:32:32
|
Я так понимаю, речь идет о программном вводе?
Два варианта на выбор:
Dim sh As Shape
Set sh = ActiveWindow.Selection(1)
sh.Text = "первая" & Chr(10) & "вторая"
sh.Text = "первая" & vbLf & "вторая" |
 |
|
|
gromozeka
11 Posts |
Posted - 11/16/2005 : 12:56:54
|
Да, о программно вводе... Спасибо!
Но возникает еще такой вопрос... Мне нужно, чтобы у каждой строки был цвет, какой я захочу... как это сделать!?
Пробовал вот так (например, 2 строки текста в шейпе):
shpObj.Cells("Char.Color[1]").result("") = 2
shpObj.Cells("Char.Color[2]").result("") = 1
Но цвет меняется у всех строк сразу...
Как быть, подскажите пожалуйста...
|
|
|
| |
Topic |
|
|
|
All Forums
перевод каретки после каждого слова в тексте