Table of contents
TOC
Collapse the table of content
Expand the table of content

TextRange.BoundLeft Property (Publisher)

office 365 dev account|Last Updated: 8/24/2017
|
3 Contributors

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.

Syntax

expression. BoundLeft

_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.

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
© 2018 Microsoft