Shapes.AddTextEffect 方法 (PowerPoint)

创建艺术字对象。 返回一个代表新艺术字对象的 Shape 对象。

语法

expression。 AddTextEffect( _PresetTextEffect_, _Text_, _FontName_, _FontSize_, _FontBold_, _FontItalic_, _Left_, _Top_ )

expression：一个表示 Shapes 对象的变量。

参数

名称	必需/可选	数据类型	说明
PresetTextEffect	必需	MsoPresetTextEffect	预置文字效果。
Text	必需	String	艺术字中的文字。
FontName	必需	String	艺术字中所用字体的名称。
FontSize	必需	Single	艺术字中所用字体的大小（以磅为单位）。
FontBold	必需	MsoTriState	确定艺术字中使用的字体是否设为粗体。
FontItalic	必需	MsoTriState	确定艺术字中使用的字体是否设为斜体。
Left	必需	Single	艺术字边界框左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top	必需	Single	艺术字边界框上边缘相对于幻灯片上边缘的位置（以磅为单位）。

返回值

Shape

说明

向文档添加艺术字对象时，该对象的高度和宽度将自动根据所指定的文字的大小和数量来设置。

示例

本示例向 myDocument 中添加包含文本“Test”的艺术字。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。