Метод Shapes.AddTextEffect (Excel)

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

Синтаксис

expression. AddTextEffect (PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
PresetTextEffect	Обязательный	MsoPresetTextEffect	Предустановленный текстовый эффект.
Текст	Обязательный	String	Текст в объекте WordArt.
FontName	Обязательный	String	Имя шрифта, используемого в объекте WordArt.
FontSize	Обязательный	Single	Размер (в пунктах) шрифта, используемого в объекте WordArt.
FontBold	Обязательный	MsoTriState	Шрифт, используемый в объекте WordArt для полужирного шрифта.
FontItalic	Обязательный	MsoTriState	Шрифт, используемый в объекте WordArt курсивом.
Left	Обязательный	Single	Позиция (в точках) левого верхнего угла ограничивающего прямоугольника Объекта WordArt относительно левого верхнего угла документа.
Top	Обязательный	Single	Позиция (в точках) верхнего левого угла ограничивающего поля Объекта WordArt относительно верхней части документа.

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

Shape

Замечания

При добавлении объекта WordArt в документ высота и ширина объекта WordArt автоматически задаются в зависимости от размера и объема указанного текста.

Пример

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

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

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

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