Метод Shapes.AddTextEffect (PowerPoint)

Статья
04/07/2023

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

Синтаксис

выражение. 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 = ActivePresentation.Slides(1) 
Set newWordArt = myDocument.Shapes _ 
    .AddTextEffect(PresetTextEffect:=msoTextEffect1, _ 
    Text:="Test", FontName:="Arial Black", FontSize:=36, _ 
    FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, Top:=10)

См. также

Объект Shapes

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

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

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