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

Метод TextEffectFormat.ToggleVerticalText (Excel)

  • Статья

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

Синтаксис

expression. ToggleVerticalText

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

Замечания

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

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

Пример

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

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

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

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