La altura del texto determina el tamaño de los caracteres del tipo de letra utilizado en unidades de dibujo. El valor suele representar el tamaño de las letras mayúsculas, exceptuando los tipos de letra TrueType.
En el caso de los tipos de letra TrueType, es posible que el valor de la altura del texto no represente la altura de las letras mayúsculas. La altura especificada representa la altura de las letras mayúsculas más un área de acentos reservada para tildes y otras marcas utilizadas en idiomas que no son inglés. La parte de área proporcional asignada a las letras mayúsculas y a los caracteres acentuados está determinada por el diseñador del tipo de letra en el momento de crearlo y varía de un tipo a otro.
Además de la altura de las letras mayúsculas y del área ascendente que incluye la altura especificada por el usuario, los tipos de letra TrueType tienen un área descendente para aquellas partes de los caracteres que sobrepasen por debajo la línea de inserción de texto. Algunos ejemplos de estos caracteres son y, j, p, g, q.
La altura del texto se precisa mediante la propiedad Height. Esta propiedad sólo admite números positivos.
Modificación de la altura de un objeto Text
Este ejemplo crea una línea de texto y después cambia la altura del texto.
Sub Ch4_ChangeTextHeight()
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
' Define the text object
textString = "Hello, World."
insertionPoint(0) = 3
insertionPoint(1) = 3
insertionPoint(2) = 0
height = 0,5
' Create the text object in model space
Set textObj = ThisDrawing.ModelSpace. _
AddText(textString, insertionPoint, height)
' Change the value of the Height to 1
textObj.height = 1
textObj.Update
End Sub