Propriedade TextRange.BoundWidth (Publisher)

Retorna um Single indicando a largura, em pontos, da caixa delimitadora para o intervalo de texto especificado. Somente leitura.

Sintaxe

expressão. BoundWidth

Expressão Uma variável que representa um objeto TextRange .

Valor de retorno

Único

Exemplo

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.

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ários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? 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.