Shapes.AddTextEffect 方法 (Excel)

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

语法

表达式。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

备注

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

示例

本示例将包含文本“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 支持和反馈，获取有关如何接收支持和提供反馈的指南。