Propiedad TextRange.BoundHeight (Publisher)

Devuelve un valor Single que indica el alto, en puntos, del cuadro delimitador del intervalo de texto especificado. Solo lectura.

Sintaxis

expresión. BoundHeight

Expresión Variable que representa un objeto TextRange .

Valor devuelto

Simple

Ejemplo:

En el siguiente ejemplo se muestra la posición, el alto y el ancho del cuadro de límite alrededor del texto en la primera forma de la página uno de la publicación activa.

Dim rngText As TextRange 
Dim strMessage As String 
 
Set rngText = ActiveDocument.Pages(1) _ 
 .Shapes(1).TextFrame.TextRange 
 
With rngText 
 strMessage = "Text frame information" & vbCrLf _ 
 & " Distance from left edge of page: " _ 
 & .BoundLeft & " points" & vbCrLf _ 
 & " Distance from top edge of page: " _ 
 & .BoundTop & " points" & vbCrLf _ 
 & " Width: " & .BoundWidth & " points" & vbCrLf _ 
 & " Height: " & .BoundHeight & " points" 
End With 
 
MsgBox strMessage

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.