全部显示

AddTextEffect 方法

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

expression   必需。该表达式返回“应用于”列表中的对象之一。

PresetTextEffect   MsoPresetTextEffect 类型，必需。预置文本效果。

Text   String 类型，必需。艺术字对象中的文字。

FontName   String 类型，必需。艺术字对象中所用的字体名称。

FontSize   Single 类型，必需。以磅为单位给出艺术字对象中所用的字体大小。

FontBold   MsoTriState 类型，必需。在艺术字中要加粗的字体。

FontItalic   MsoTriState 类型，必需。在艺术字中要倾斜的字体。

Left   Single 类型，必需。相对于文档的左上角，以磅为单位给出艺术字对象边框左上角的位置。

Top   Single 类型，必需。相对于文档的顶部，以磅为单位给出艺术字对象边框左上角的位置。

说明

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

示例

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

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)