Propriedade TextRange. BoundWidth (Publisher)TextRange.BoundWidth property (Publisher)

Retorna um único indicando a largura, em pontos, da caixa de vinculação para o intervalo de texto especificado.Returns a Single indicating the width, in points, of the bounding box for the specified text range. Somente leitura.Read-only.

SintaxeSyntax

expressão. BoundWidthexpression.BoundWidth

expressão Uma variável que representa um objeto TextRange .expression A variable that represents a TextRange object.

Valor de retornoReturn value

ÚnicoSingle

ExemploExample

O exemplo a seguir exibe a posição, largura e altura da caixa delimitadora ao redor do texto na página um da publicação ativa.The following example displays the position, width, and height of the bounding box surrounding the text in the first shape on page one of the active publication.

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

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.