决定指定艺术字中的字符(大小写都包括)高度是否相同。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
msoCTrue |
msoFalse |
msoTriStateMixed |
msoTriStateToggle |
msoTrue 指定艺术字中的所有字符(大小写都包括)高度相同。 |
本示例向 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