Shapes.AddTextEffect 方法 (Publisher)

将表示艺术字对象的新 Shape 对象添加到指定的 Shapes 集合。

语法

表达式。AddTextEffect (PresetTextEffect， Text， FontName， FontSize， FontBold， FontItalic， Left， Top)

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

参数

名称	必需/可选	数据类型	说明
PresetTextEffect	必需	MsoPresetTextEffect	若要使用预设的文本效果。 可读 常数的值对应于 艺术字库对话框 (从左到右，从上到下编号) 中列出的格式。 可以是 Microsoft Office 类型库中声明的 MsoPresetTextEffect 常量之一。 不支持 msoTextEffectMixed 常量。
Text	必需	String	用于艺术字对象的文字。
FontName	必需	String	用于艺术字对象的字体名称。
FontSize	必需	Variant	用于艺术字对象的字号。 数值以 磅为单位计算;字符串可以位于 Microsoft Publisher (支持的任何单元中，例如，“2.5 in”) 。
FontBold	必需	MsoTriState	确定是否将艺术字文字设置为加粗格式。
FontItalic	必需	MsoTriState	确定是否将艺术字文字设置为倾斜格式。
Left	必需	Variant	代表艺术字对象的形状的左边缘的位置。
Top	必需	Variant	代表艺术字对象的形状的上边缘的位置。

返回值

Shape

说明

对于 Left 和 Top 参数，数值以 磅为单位计算;字符串可以位于 Publisher (支持的任何单元中，例如“2.5 in”) 。

艺术字对象的高度和宽度由其文字和格式确定。

使用 Shape.TextEffect 属性可返回 TextEffectFormat 对象，其属性可用于编辑现有艺术字对象。

FontBold 参数可以是 Microsoft Office 类型库中声明的 MsoTriState 常量之一，如下表所示。

常量	说明
msoFalse	不将艺术字文字设置为加粗格式。
msoTrue	将艺术字文字设置为加粗格式。

FontItalic 参数可以是下表所示的 MsoTriState 常量之一。

常量	说明
msoFalse	不将艺术字文字设置为倾斜格式。
msoTrue	将艺术字文字设置为倾斜格式。

示例

以下示例将艺术字对象添加到当前出版物的第一页。

Dim shpWordArt As Shape 
 
Set shpWordArt = ActiveDocument.Pages(1).Shapes.AddTextEffect _ 
 (PresetTextEffect:=msoTextEffect7, Text:="Annual Report", _ 
 FontName:="Arial Black", FontSize:=24, _ 
 FontBold:=msoFalse, FontItalic:=msoFalse, _ 
 Left:=144, Top:=72) 

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。