全部显示如果为 MsoTrue，则指定“艺术字”中的所有字符（大写和小写）的高度相同。MsoTriState，可读写。
| MsoTriState 可以是下列 MsoTriState 常量之一： |
| msoCTrue |
| msoFalse |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue |
expression.NormalizedHeight
expression 必需。该表达式返回一个 TextEffectFormat 对象。
本示例将包含文字“Test Effect”的“艺术字”添加至 myDocument，并将新“艺术字”命名为“texteff 1”。此代码然后将名为“texteff1”的图形中的所有字符的高度设为相同。
Set myDocument = ActiveDocument
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