Share via

BoundLeft Property [Publisher 2003 VBA Language Reference]

  • Article

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

expression.BoundLeft

expression Required. An expression that returns one of the objects in the Applies To list.

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.

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

Applies to | TextRange Object