PowerPoint VBA教程:AddTextEffect方法

创建艺术字对象。返回一个代表新艺术字对象的Shape对象。

expression.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)

expression  必选。该表达式返回“应用于”列表中的对象之一。

PresetTexture  必选。MsoPresetTexture 类型。预设的文本效果。

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 类型。艺术字边界框上边缘相对于幻灯片上边缘的位置(以磅为单位)。

说明

在文档中添加艺术字时,艺术字的高度和宽度会根据指定文本的大小和数量自动调整。

VBA示例

本示例在 myDocument 中添加包含文本“Test”的艺术字。


Set myDocument = ActivePresentation.Slides(1)
Set newWordArt = myDocument.Shapes _
    .AddTextEffect(PresetTextEffect:=msoTextEffect1, _
    Text:="Test", FontName:="Arial Black", FontSize:=36, _
    FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, Top:=10)

上页:PowerPoint VBA教程:AddTextbox方法 下页:PowerPoint VBA教程:AddTitle方法

PowerPoint VBA教程:AddTextEffect方法

PowerPoint VBA教程:AddTitle方法 PowerPoint VBA教程:AddTitleMaster方法
PowerPoint VBA教程:AddToFavorites方法 PowerPoint VBA教程:Align方法
PowerPoint VBA教程:Apply方法 PowerPoint VBA教程:ApplyTemplate方法
PowerPoint VBA教程:Arrange方法 PowerPoint VBA教程:AutomaticLength方法
PowerPoint VBA教程:Background方法 PowerPoint VBA教程:BeginConnect方法
PowerPoint VBA教程:BeginDisconnect方法 PowerPoint VBA教程:BuildFreeform方法
PowerPoint VBA教程:CanCheckIn方法 PowerPoint VBA教程:CanCheckOut方法
PowerPoint VBA教程:Cell方法 PowerPoint VBA教程:ChangeCase方法
PowerPoint VBA教程:Characters方法 PowerPoint VBA教程:CheckIn方法
PowerPoint VBA教程:CheckOut方法 PowerPoint VBA教程:Clear方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号