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