Word VBA教程:PresetTextEffect属性

返回或设置指定“艺术字”的样式。此属性值对应于“‘艺术字’库”对话框(“插入”菜单)中的格式(从左到右,从上到下进行编号)。MsoPresetTextEffect,可读写。

MsoPresetTextEffect 可以是下列 MsoPresetTextEffect 常量之一:
msoTextEffect1
msoTextEffect10
msoTextEffect11
msoTextEffect12
msoTextEffect13
msoTextEffect14
msoTextEffect15
msoTextEffect16
msoTextEffect17
msoTextEffect18
msoTextEffect19
msoTextEffect2
msoTextEffect20
msoTextEffect21
msoTextEffect22
msoTextEffect23
msoTextEffect24
msoTextEffect25
msoTextEffect26
msoTextEffect27
msoTextEffect28
msoTextEffect29
msoTextEffect3
msoTextEffect30
msoTextEffect4
msoTextEffect5
msoTextEffect6
msoTextEffect7
msoTextEffect8
msoTextEffect9
msoTextEffectMixed

expression.PresetTextEffect

expression   必需。该表达式返回一个TextEffectFormat对象。

说明

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

VBA示例

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


Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
    If s.Type = msoTextEffect Then
        s.TextEffect.PresetTextEffect = msoTextEffect1
    End If
Next

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号