PowerPoint VBA教程:ToggleVerticalText方法

将指定的艺术字中的文字排列从水平切换为垂直,反之亦然。

expression.ToggleVerticalText

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

说明

使用 ToggleVerticalText方法可以交换代表艺术字的 Shape对象的 Width 和 Height属性的值,但不改变 Left 和 Top属性。

Shape对象的Flip方法和Rotation属性以及 TextEffectFormat对象的RotatedChars属性和 ToggleVerticalText方法都影响代表艺术字的 Shape对象的文字排列的方向。您可能需要多次试验,才能找出组合这些属性和方法的效果的方法以获得预期结果。

VBA示例

本示例向myDocument 中添加包含“Test”文本的艺术字,并且将水平文字排列(指定艺术字的默认字体,msoTextEffect1)切换为垂直文字排列。


Set myDocument = ActivePresentation.Slides(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

上页:PowerPoint VBA教程:SwapNode方法 下页:PowerPoint VBA教程:TransferChildren方法

PowerPoint VBA教程:ToggleVerticalText方法

PowerPoint VBA教程:TransferChildren方法 PowerPoint VBA教程:TrimText方法
PowerPoint VBA教程:TwoColorGradient方法 PowerPoint VBA教程:Ungroup方法
PowerPoint VBA教程:Unselect方法 PowerPoint VBA教程:Update方法
PowerPoint VBA教程:UpdateLinks方法 PowerPoint VBA教程:UseDefaultFolderSuffix方法
PowerPoint VBA教程:UserPicture方法 PowerPoint VBA教程:UserTextured方法
PowerPoint VBA教程:Value方法 PowerPoint VBA教程:WebPagePreview方法
PowerPoint VBA教程:Words方法 PowerPoint VBA教程:ZOrder方法
PowerPoint VBA教程:ActionSetting对象 PowerPoint VBA教程:ActionSettings集合对象
PowerPoint VBA教程:AddIn对象 PowerPoint VBA教程:AddIns集合对象
PowerPoint VBA教程:Adjustments对象 PowerPoint VBA教程:AnimationBehavior对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号