Share via

TextRange.BoundWidth Property

  • Article
Publisher Developer Reference

Returns a Single indicating the width, in points, of the bounding box for the specified text range. Read-only.

Syntax

expression.BoundWidth

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.

Visual Basic for Applications 
  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

See Also