Метод CanvasShapes.AddTextEffect (Word)

Статья
04/07/2023

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

Синтаксис

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

выражение (обязательно). Переменная, представляющая объект CanvasShapes .

Параметры

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

Замечания

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

Пример

В этом примере холст рисования добавляется в новый документ и вставляется фигура WordArt внутри холста, который содержит текст "Hello, World".

Sub NewCanvasTextEffect() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 'Create a new document and add a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=100, Top:=100, Width:=150, _ 
 Height:=50) 
 
 'Add WordArt shape to the drawing canvas 
 shpCanvas.CanvasItems.AddTextEffect _ 
 PresetTextEffect:=msoTextEffect20, _ 
 Text:="Hello, World", FontName:="Tahoma", _ 
 FontSize:=15, FontBold:=msoTrue, _ 
 FontItalic:=msoFalse, _ 
 Left:=120, Top:=120 
End Sub

См. также

Коллекция CanvasShapes

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

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

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