True if all characters (both uppercase and lowercase) in the specified WordArt are the same height. Read/write MsoTriState.
MsoTriState can be one of these MsoTriState constants. |
msoCTrue |
msoFalse |
msoTriStateMixed |
msoTriStateToggle |
msoTrue All characters (both uppercase and lowercase) in the specified WordArt are the same height. |
expression.NormalizedHeight
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example adds WordArt that contains the text "Test Effect" to myDocument
and gives the new WordArt the name "texteff1." The code then makes all characters in the shape named “texteff1” the same height.
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