创建艺术字对象。返回一个 Shape 对象,该对象代表新建的艺术字对象。
expression.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)
expression 必需。该表达式返回“应用于”列表中的对象之一。
PresetTextEffect MsoPresetTextEffect 类型,必需。预置文本效果。
MsoPresetTextEffect 可为以下 MsoPresetTextEffect 常量之一。 |
msoTextEffect1 |
msoTextEffect2 |
msoTextEffect3 |
msoTextEffect4 |
msoTextEffect5 |
msoTextEffect6 |
msoTextEffect7 |
msoTextEffect8 |
msoTextEffect9 |
msoTextEffect10 |
msoTextEffect11 |
msoTextEffect12 |
msoTextEffect13 |
msoTextEffect14 |
msoTextEffect15 |
msoTextEffect16 |
msoTextEffect17 |
msoTextEffect18 |
msoTextEffect19 |
msoTextEffect20 |
msoTextEffect21 |
msoTextEffect22 |
msoTextEffect23 |
msoTextEffect24 |
msoTextEffect25 |
msoTextEffect26 |
msoTextEffect27 |
msoTextEffect28 |
msoTextEffect29 |
msoTextEffect30 |
msoTextEffectMixed |
Text String 类型,必需。艺术字对象中的文字。
FontName String 类型,必需。艺术字对象中所用的字体名称。
FontSize Single 类型,必需。以磅为单位给出艺术字对象中所用的字体大小。
FontBold MsoTriState 类型,必需。在艺术字中要加粗的字体。
MsoTriState 可为以下 MsoTriState 常量之一。 |
msoCTrue |
msoFalse |
msoTriStateMixed |
msoTriStateToggle |
msoTrue |
FontItalic MsoTriState 类型,必需。在艺术字中要倾斜的字体。
MsoTriState 可为以下 MsoTriState 常量之一。 |
msoCTrue |
msoFalse |
msoTriStateMixed |
msoTriStateToggle |
msoTrue |
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)