Share via

TextRange.BoundTop Property

  • Article
Publisher Developer Reference

Returns a Single indicating the distance, in points, from the top edge of the topmost page to the top edge of the bounding box for the specified text range. Read-only.

Syntax

expression.BoundTop

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