Свойство TextRange. Баундвидс (издатель)TextRange.BoundWidth property (Publisher)

• 06/15/2019
• Чтение занимает 2 мин
• • 

Возвращает значение типа Single , обозначающее ширину (в пунктах) ограничивающего прямоугольника для указанного диапазона текста.Returns a Single indicating the width, in points, of the bounding box for the specified text range. Только для чтения.Read-only.

СинтаксисSyntax

Expression. Баундвидсexpression.BoundWidth

Expression (выражение ) Переменная, представляющая объект TextRange .expression A variable that represents a TextRange object.

Возвращаемое значениеReturn value

ОдинарноеSingle

ПримерExample

В приведенном ниже примере отображается положение, ширина и высота ограничительной рамки вокруг текста в первой фигуре на странице одна из активных публикаций.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

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.