如果指定的艺术字对象中所有字符(无论大小写)均为同一高度,则该值为 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