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