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

  • Статья

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

Синтаксис

expression. RotatedChars

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

Возвращаемое значение

MsoTriState

Замечания

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

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

Используйте метод ToggleVerticalText для переключения между горизонтальным и вертикальным текстовым потоком.

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

Пример

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

Sub CreateFormatWordArt() 
 With ActiveDocument.Pages(1).Shapes _ 
 .AddTextEffect(PresetTextEffect:=msoTextEffect1, _ 
 Text:="Test", FontName:="Arial Black", FontSize:=36, _ 
 FontBold:=False, FontItalic:=False, Left:=10, Top:=10) 
 .TextEffect.RotatedChars = msoTrue 
 End With 
End Sub

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

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