Свойство TextRange.BoundWidth (Publisher)

Возвращает значение Single , указывающее ширину ограничивающего поля в точках для указанного текстового диапазона. Только для чтения.

Синтаксис

expression. BoundWidth

выражение Переменная, представляющая объект TextRange .

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

Одинарное с плавающей точкой

Пример

В следующем примере показана позиция, ширина и высота ограничивающего поля, окружающего текст в первой фигуре на первой странице активной публикации.

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

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.