Word VBA教程:RotatedChars属性

如果为 MsoTrue,则指定的“艺术字”字符将相对于“艺术字”图形边框旋转 90 度。如果为 MsoFalse,则指定的“艺术字”字符将相对于图形边框保持原先的方向。MsoTriState,可读写。

MsoTriState 可以是下列 MsoTriState 常量之一:
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue

expression.RotatedChars

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

说明

如果“艺术字”有水平排列的文字,则将 RotatedChars属性设为 True,可使字符逆时针旋转 90 度。如果“艺术字”有垂直排列的文字,则将 RotatedChars属性设为 False,可使字符顺时针旋转 90 度。可用ToggleVerticalText方法切换文字的水平或垂直排列。

Shape对象的Flip方法和Rotation属性以及 TextEffectFormat对象的 RotatedChars属性和 ToggleVerticalText方法会对代表“艺术字”的 Shape对象中的字符的方向和文字排列的方向产生影响。可能需要通过多次试验才能通过结合这些属性和方法取得理想的效果。

VBA示例

本示例将包含文字“Test”的“艺术字”添加至myDocument,然后将其逆时针旋转 90 度。


Set myDocument = ActiveDocument
Set newWordArt = _
    myDocument.Shapes.AddTextEffect( _
    PresetTextEffect:=msoTextEffect1, _
    Text:="Test", _
    FontName:="Arial Black", FontSize:=36, _
    FontBold:=False, FontItalic:=False, Left:=10, Top:=10)
newWordArt.TextEffect.RotatedChars = True

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号