Excel VBA教程:RotatedChars属性

如果指定艺术字对象中的字符相对于该对象旋转了 90 度,则该值为 True。如果指定艺术字对象中的字符相对于该对象保持原有方向,则该值为 False。MsoTriState 类型,可读写。

MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 指定艺术字对象中的字符相对于该对象保持原有方向。
msoTriStateMixed
msoTriStateToggle
msoTrue 指定艺术字对象中的字符相对于该对象旋转 90 度。

expression.RotatedChars

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

说明

如果艺术字对象中的文字是水平排列的,则将 RotatedChars属性设置为 msoTrue 可使字符按逆时针方向旋转 90 度。如果艺术字对象中的文字是垂直排列的,则将 RotatedChars属性设置为 msoFalse 可使字符按顺时针方向旋转 90 度。用 ToggleVerticalText方法可使字符在水平和垂直排列方式之间转换。

Shape对象的Flip方法和Rotation属性以及 TextEffectFormat对象的 RotatedChars属性和ToggleVerticalText方法都会影响艺术字对象中的字符方向和文本排列方向。可能需要进行尝试,以便适当地组合使用这些属性和方法,获得所需的效果。

Excel VBA教程:RotatedChars属性·示例

本示例向myDocument 中添加艺术字对象,该对象中包含文字“Test”,然后使其中的字符按逆时针方向旋转 90 度。


Set myDocument = Worksheets(1)
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 = msoTrue

上页:Excel VBA教程:Root属性 下页:Excel VBA教程:Rotation属性

Excel VBA教程:RotatedChars属性

Excel VBA教程:Rotation属性 Excel VBA教程:RotationX属性
Excel VBA教程:RotationY属性 Excel VBA教程:RoundedCorners属性
Excel VBA教程:Routed属性 Excel VBA教程:RoutingSlip属性
Excel VBA教程:Row属性 Excel VBA教程:RowColSettings属性
Excel VBA教程:RowFields属性 Excel VBA教程:RowGrand属性
Excel VBA教程:RowHeight属性 Excel VBA教程:RowItems属性
Excel VBA教程:RowNumbers属性 Excel VBA教程:RowRange属性
Excel VBA教程:Rows属性 Excel VBA教程:RTD属性
Excel VBA教程:Saved属性 Excel VBA教程:SaveData属性
Excel VBA教程:SaveHiddenData属性 Excel VBA教程:SaveLinkValues属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号