Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
56 lines (38 sloc) 1.36 KB
title keywords f1_keywords ms.prod api_name ms.assetid ms.date localization_priority
TextRange.BoundHeight property (Publisher)
vbapb10.chm5308436
vbapb10.chm5308436
publisher
Publisher.TextRange.BoundHeight
010d3de9-5838-fbf7-fb75-b80a06aafac8
06/15/2019
Normal

TextRange.BoundHeight property (Publisher)

Returns a Single indicating the height, in points, of the bounding box for the specified text range. Read-only.

Syntax

expression.BoundHeight

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

[!includeSupport and feedback]

You can’t perform that action at this time.