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

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

Синтаксис

выражения. 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 и обратная связь.