Propiedad TextRange.BoundTop (Publisher)

Devuelve un valor Single que indica la distancia, en puntos, desde el borde superior de la página superior hasta el borde superior del cuadro de límite para el intervalo de texto especificado. Solo lectura.

Sintaxis

expresión. BoundTop

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.