CanvasShapes.AddTextEffect 方法 (Word)

  • 项目

在绘图画布上添加一个艺术字形状。 返回一个表示该艺术字的 Shape 对象。

语法

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

expression 是必需的。 一个代表 CanvasShapes 对象的变量。

参数

名称 必需/可选 数据类型 说明
PresetTextEffect 必需 Mso 预设的文本效果。 可读 常数的值对应于 艺术字库对话框 (从左到右，从上到下编号) 中列出的格式。
Text 必需 String 艺术字中的文字。
FontName 必需 String 艺术字中所用字体的名称。
FontSize 必需 Single 艺术字中所用字体的大小（以磅为单位）。
FontBold 必需 MsoTriState 属性值为 msoTrue 为艺术字字体加粗。 msoFalse 设置正则将艺术字中使用的字体。
FontItalic 必需 MsoTriState 属性值为 msoTrue ，以斜体显示艺术字。 msoFalse 设置正则将艺术字中使用的字体。
Left 必需 Single 艺术字形状左边缘相对于绘图画布左边缘的位置（以磅为单位）。
Top 必需 Single 艺术字形状上边缘相对于绘图画布上边缘的位置（以磅为单位）。

备注

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

示例

本示例在新文档中添加一个绘图画布，并在绘图画布中插入包含文字“Hello, World”的“艺术字”图形。

Sub NewCanvasTextEffect() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 'Create a new document and add a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=100, Top:=100, Width:=150, _ 
 Height:=50) 
 
 'Add WordArt shape to the drawing canvas 
 shpCanvas.CanvasItems.AddTextEffect _ 
 PresetTextEffect:=msoTextEffect20, _ 
 Text:="Hello, World", FontName:="Tahoma", _ 
 FontSize:=15, FontBold:=msoTrue, _ 
 FontItalic:=msoFalse, _ 
 Left:=120, Top:=120 
End Sub

另请参阅

CanvasShapes 集合

支持和反馈

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