Страница: 1 |
Вопрос: Excel: текст с ног на голову | Добавлено: 30.03.07 12:47 |
Автор вопроса: ![]() |
Возможно ли как-то в Екселе повернуть текст на 180 градусов, т.е. чтобы он был перевернут. |
Ответы | Всего ответов: 8 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 10 Ответов: 71 |
Профиль | Цитата | #1 | Добавлено: 30.03.07 14:38 |
Sub Макрос2()
' Сочетание клавишь: Ctrl+a ActiveCell.FormulaR1C1 = StrReverse(ActiveCell.FormulaR1C1) End Sub |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 30.03.07 21:13 |
Можно воспользоватся объектом WordArt |
Номер ответа: 3 Автор ответа: ![]() ![]() ICQ: 234458121 Вопросов: 38 Ответов: 107 |
Профиль | Цитата | #3 | Добавлено: 31.03.07 20:14 |
1: Наверное не совсем правильно написал. Надо чтобы текст бы вверх тормашками, а не справа на лево. |
Номер ответа: 4 Автор ответа: ![]() ![]() ICQ: 234458121 Вопросов: 38 Ответов: 107 |
Профиль | Цитата | #4 | Добавлено: 31.03.07 20:19 |
2: Как программно его сделать, вставив в него определенные данные с другого листа и изменив свойства объекта. А также разместить в определенном месте листа. |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 01.04.07 12:11 |
Если ты видел программу которая это делает,
найди ее шрифт, если нет, то создай свой например в ParaNoise и используй его. |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 01.04.07 12:20 |
А можеш и так, Пуск - Выполнить, впечатай Eudcedit нажми ОК
и твори свой шрифт. |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 01.04.07 22:48 |
А так не подойдёт:
Dim Rg As Range
Set Rg = ActiveCell Rg.CopyPicture Appearance:=xlScreen, Format:=xlBitmap ActiveSheet.Paste Selection.ShapeRange.IncrementRotation 180# ' Selection.ShapeRange.Flip msoFlipVertical Rg.Select |
Номер ответа: 8 Автор ответа: ![]() ![]() ICQ: 234458121 Вопросов: 38 Ответов: 107 |
Профиль | Цитата | #8 | Добавлено: 06.04.07 12:59 |
Боцман, ты не о том пишешь.
Дмит, спасибо. Думал про этот способ, но как-то он мне не понравился. Решил все проще, не переворачивая шрифт. |
Страница: 1 |
|