NormalizedHeight 属性

       

决定指定艺术字中的字符(大小写都包括)高度是否相同。可读写。MsoTriState 类型。

示例

本示例向 myDocument 中添加包含文本“Test Effect”的艺术字,并将新的艺术字命名为”texteff1”。然后代码将命名为“texteff1”的形状中的所有字符统一为相同高度。

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
    Text:="Test Effect", FontName:="Courier New", _
    FontSize:=44, FontBold:=True, _
    FontItalic:=False, Left:=10, Top:=10)_
    .Name = "texteff1"
myDocument.Shapes("texteff1").TextEffect.NormalizedHeight = msoTrue