如果指定的艺术字对象中所有字符（无论大小写）均为同一高度，则该值为 True。MsoTriState 类型，可读写。
| MsoTriState 可为以下 MsoTriState 常量之一。 |
| msoCTrue |
| msoFalse |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue 如果指定的艺术字对象中所有字符（无论大小写）均为同一高度。 |
expression.NormalizedHeight
expression 必需。该表达式返回“应用于”列表中的对象之一。
本示例向 myDocument 中添加包含文字“Test Effect”的艺术字对象，并为新添加的艺术字对象取名为“texteff1”，然后本示例将该对象中的所有字符都设置为同一高度。
Set myDocument = Worksheets(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