Excel VBA教程:AddTextEffect方法

创建艺术字对象。返回一个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 类型,必需。相对于文档的顶部,以磅为单位给出艺术字对象边框左上角的位置。

说明

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

Excel VBA教程:AddTextEffect方法·示例

本示例向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)

上页:Excel VBA教程:AddTextbox方法 下页:Excel VBA教程:AddToFavorites方法

Excel VBA教程:AddTextEffect方法

Excel VBA教程:AddToFavorites方法 Excel VBA教程:AdvancedFilter方法
Excel VBA教程:Align方法 Excel VBA教程:Apply方法
Excel VBA教程:ApplyCustomType方法 Excel VBA教程:ApplyDataLabels方法
Excel VBA教程:ApplyNames方法 Excel VBA教程:ApplyOutlineStyles方法
Excel VBA教程:AreaGroups方法 Excel VBA教程:Arrange方法
Excel VBA教程:AutoComplete方法 Excel VBA教程:AutoFill方法
Excel VBA教程:AutoFilter方法 Excel VBA教程:AutoFit方法
Excel VBA教程:AutoFormat方法 Excel VBA教程:AutomaticLength方法
Excel VBA教程:AutoOutline方法 Excel VBA教程:AutoShow方法
Excel VBA教程:AutoSort方法 Excel VBA教程:Axes方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号