Поделиться через

Свойство TextEffectFormat.RotatedChars (Excel)

  • Статья

Возвращает msoTrue, если символы в указанном объекте WordArt повернуты на 90 градусов относительно ограничивающей фигуры Объекта WordArt. Возвращает msoFalse, если символы в указанном объекте WordArt сохраняют исходную ориентацию относительно ограничивающей фигуры. Чтение и запись MsoTriState.

Синтаксис

expression. RotatedChars

Выражение Переменная, представляющая объект TextEffectFormat .

Замечания

Если объект WordArt содержит горизонтальный текст, присвоив свойству RotatedChars значение msoTrue , знаки будут поворачиваться против часовой стрелки на 90 градусов. Если объект WordArt содержит вертикальный текст, для свойства RotatedChars значение msoFalse будет поворачиваться на 90 градусов по часовой стрелке. Используйте метод ToggleVerticalText для переключения между горизонтальным и вертикальным текстовым потоком.

Метод Flip и свойство Rotation объекта Shape и свойство RotatedChars и метод ToggleVerticalText объекта TextEffectFormat влияют на ориентацию символов и направление потока текста в объекте Shape , представляющего Объект WordArt. Возможно, вам придется поэкспериментировать, чтобы узнать, как объединить эффекты этих свойств и методов, чтобы получить нужный результат.

Пример

В этом примере объект WordArt, содержащий текст Test, добавляется в myDocument и поворачивает символы на 90 градусов против часовой стрелки.

Set myDocument = Worksheets(1) 
Set newWordArt = myDocument.Shapes.AddTextEffect( _ 
 PresetTextEffect:=msoTextEffect1, Text:="Test", _ 
 FontName:="Arial Black", FontSize:=36, _ 
 FontBold:=False, FontItalic:=False, Left:=10, _ 
 Top:=10) 
newWordArt.TextEffect.RotatedChars = msoTrue

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.