BoundWidth Property

expression.BoundWidth

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