Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Excel: текст с ног на голову Добавлено: 30.03.07 12:47  

Автор вопроса:  APS | ICQ: 234458121 
Возможно ли как-то в Екселе повернуть текст на 180 градусов, т.е. чтобы он был перевернут.

Ответить

  Ответы Всего ответов: 8  

Номер ответа: 1
Автор ответа:
 20vek



Вопросов: 10
Ответов: 71
 Профиль | | #1 Добавлено: 30.03.07 14:38
Sub Макрос2()
' Сочетание клавишь: Ctrl+a
ActiveCell.FormulaR1C1 = StrReverse(ActiveCell.FormulaR1C1)
End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Дмит



Вопросов: 11
Ответов: 160
 Web-сайт: dimit.pochta.ru
 Профиль | | #2
Добавлено: 30.03.07 21:13
Можно воспользоватся объектом WordArt

Ответить

Номер ответа: 3
Автор ответа:
 APS



ICQ: 234458121 

Вопросов: 38
Ответов: 107
 Профиль | | #3 Добавлено: 31.03.07 20:14
1: Наверное не совсем правильно написал. Надо чтобы текст бы вверх тормашками, а не справа на лево.

Ответить

Номер ответа: 4
Автор ответа:
 APS



ICQ: 234458121 

Вопросов: 38
Ответов: 107
 Профиль | | #4 Добавлено: 31.03.07 20:19
2: Как программно его сделать, вставив в него определенные данные с другого листа и изменив свойства объекта. А также разместить в определенном месте листа.

Ответить

Номер ответа: 5
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #5
Добавлено: 01.04.07 12:11
Если ты видел программу которая это делает,
найди ее шрифт, если нет, то создай свой например в ParaNoise и используй его.

Ответить

Номер ответа: 6
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #6
Добавлено: 01.04.07 12:20
А можеш и так, Пуск - Выполнить, впечатай Eudcedit нажми ОК
и твори свой шрифт.

Ответить

Номер ответа: 7
Автор ответа:
 Дмит



Вопросов: 11
Ответов: 160
 Web-сайт: dimit.pochta.ru
 Профиль | | #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
Автор ответа:
 APS



ICQ: 234458121 

Вопросов: 38
Ответов: 107
 Профиль | | #8 Добавлено: 06.04.07 12:59
Боцман, ты не о том пишешь.
Дмит, спасибо. Думал про этот способ, но как-то он мне не понравился.
Решил все проще, не переворачивая шрифт.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам