通过

TextRange.BoundHeight 属性 (Publisher)

  • 项目

返回一个 Single 类型的值，该值指示指定文本范围的边界框的高度（以 磅为单位）。 此为只读属性。

语法

表达式。BoundHeight

表达 一个代表 TextRange 对象的变量。

返回值

单精度

示例

以下示例显示当前出版物中，环绕第一页上第一个形状中的文字的边界框的位置、宽度和高度。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。