Excel VBA教程:ToggleVerticalText方法

使指定的艺术字对象的文字在水平排列方式和垂直排列方式之间转换。

expression.ToggleVerticalText

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

说明

可用 ToggleVerticalText方法交换艺术字 Shape对象的 Width属性和 Height属性的值,而保持其 Left属性和 Top属性不变。

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

Excel VBA教程:ToggleVerticalText方法·示例

本示例向 myDocument 中添加包含“Test”的艺术字对象,并将其水平文字排列方向(对于指定的艺术字样式 msoTextEffect1,这是默认的文字排列方向)更改为垂直文字排列方向。


Set myDocument = Worksheets(1)
Set newWordArt = myDocument.Shapes.AddTextEffect( _
    PresetTextEffect:=msoTextEffect1, Text:="Test", _
    FontName:="Arial Black", FontSize:=36, _
    FontBold:=False, FontItalic:=False, Left:=100, _
    Top:=100)
newWordArt.TextEffect.ToggleVerticalText

上页:Excel VBA教程:TextToColumns方法 下页:Excel VBA教程:TransferChildren方法

Excel VBA教程:ToggleVerticalText方法

Excel VBA教程:TransferChildren方法 Excel VBA教程:Trendlines方法
Excel VBA教程:TwoColorGradient方法 Excel VBA教程:Undo方法
Excel VBA教程:Ungroup方法 Excel VBA教程:Union方法
Excel VBA教程:UnMerge方法 Excel VBA教程:Unprotect方法
Excel VBA教程:UnprotectSharing方法 Excel VBA教程:Update方法
Excel VBA教程:UpdateFromFile方法 Excel VBA教程:UpdateLink方法
Excel VBA教程:UpdateNotify方法 Excel VBA教程:UseDefaultFolderSuffix方法
Excel VBA教程:UserPicture方法 Excel VBA教程:UserTextured方法
Excel VBA教程:Verb方法 Excel VBA教程:Volatile方法
Excel VBA教程:Wait方法 Excel VBA教程:WebPagePreview方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号