Propiedad TextRange.BoundLeft (Publisher)

Devuelve un valor Single que indica la distancia, en puntos, desde el borde izquierdo de la página situada más a la izquierda hasta el borde izquierdo del cuadro de límite del intervalo de texto especificado. Solo lectura.

Sintaxis

expresión. BoundLeft

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.