Метод TextEffectFormat.ToggleVerticalText (Publisher)

Статья
04/07/2023

Переключает текстовый поток в указанном объекте WordArt с горизонтального на вертикальный или наоборот.

Синтаксис

expression. ToggleVerticalText

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

Замечания

При использовании метода ToggleVerticalText значения свойств Left и Top объекта Shape , представляющего объект WordArt, заменяются значениями свойств Width и Height .

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

Пример

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

Dim shpTextEffect As Shape 
 
Set shpTextEffect = ActiveDocument.Pages(1).Shapes.AddTextEffect _ 
 (PresetTextEffect:=msoTextEffect1, Text:="Test", _ 
 FontName:="Arial Black", FontSize:=36, _ 
 FontBold:=False, FontItalic:=False, Left:=100, Top:=100) 
 
shpTextEffect.TextEffect.ToggleVerticalText

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

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