PowerPoint VBA教程: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

expression.PresetTextEffect

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

说明

设置 PresetTextEffect属性会自动设置指定形状的许多其他格式属性。

VBA示例

本示例将myDocument 中所有的艺术字设置为“‘艺术字’库”对话框中列出的第一种样式。


Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    If s.Type = msoTextEffect Then
        s.TextEffect.PresetTextEffect = msoTextEffect1
    End If
Next

上页:PowerPoint VBA教程:PresetShape属性 下页:PowerPoint VBA教程:PresetTexture属性

PowerPoint VBA教程:PresetTextEffect属性

PowerPoint VBA教程:PresetTexture属性 PowerPoint VBA教程:PresetThreeDFormat属性
PowerPoint VBA教程:PrintColorType属性 PowerPoint VBA教程:PrintComments属性
PowerPoint VBA教程:PrintFontsAsGraphics属性 PowerPoint VBA教程:PrintHiddenSlides属性
PowerPoint VBA教程:PrintInBackground属性 PowerPoint VBA教程:PrintOptions属性
PowerPoint VBA教程:PrintSteps属性 PowerPoint VBA教程:ProductCode属性
PowerPoint VBA教程:ProgID属性 PowerPoint VBA教程:Property属性
PowerPoint VBA教程:PropertyEffect属性 PowerPoint VBA教程:PublishObjects属性
PowerPoint VBA教程:RangeEnd属性 PowerPoint VBA教程:Ranges属性
PowerPoint VBA教程:RangeStart属性 PowerPoint VBA教程:RangeType属性
PowerPoint VBA教程:ReadOnly属性 PowerPoint VBA教程:Registered属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号