TextRange.BoundWidth property (Publisher)
Returns a Single indicating the width, in points, of the bounding box for the specified text range. Read-only.
expression A variable that represents a TextRange object.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.