Свойство ShapeRange.TextEffect (Издатель)

Возвращает объект TextEffectFormat , представляющий свойства форматирования текста объекта WordArt.

Синтаксис

expression. Texteffect

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

Пример

В этом примере объект WordArt добавляется в активную публикацию и форматирует и вставляет в него дополнительный текст.

Sub AddFormatNewWordArt() 
 With ActiveDocument.Pages(1).Shapes.AddTextEffect( _ 
 PresetTextEffect:=msoTextEffect1, Text:="Test", _ 
 FontName:="Snap ITC", FontSize:=30, FontBold:=msoTrue, _ 
 FontItalic:=msoFalse, Left:=150, Top:=130) 
 .Rotation = 90 
 With .TextEffect 
 .RotatedChars = msoTrue 
 .Text = "This is a " & .Text 
 End With 
 .Width = 250 
 End With 
End Sub

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

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