addtexteffect方法
AddTextEffect方法 创建艺术字对象。返回一个Shape对象,该对象代表新建的艺术字对象。 expression.AddTextEffectPresetTextEffect, 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 msoTextEffect28msoTextEffect29 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 类型,必需。相对于文档的顶部,以磅为单位给出艺术字对象边 框左上角的位置。 说明 向文档添加艺术字对象时,该对象的高度和宽度将自动根据所指定的文字的大 小和数量来设置。 Excel VBA教程AddTextEffect方法示例 本示例向myDocument 中添加包含文字“Test”的艺术字对象。Set myDocument Worksheets1 Set newWordArt myDocument.Shapes.AddTextEffect _PresetTextEffectmsoTextEffect1, Text“Test“, _FontName“Arial Black“, FontSize36, _FontBoldmsoFalse, FontItalicmsoFalse, Left10, _Top10