通过

Publisher) (TextRange.BoundTop 属性

  • 项目

返回一个 Single 类型的值，该值指示从最顶部页面的上边缘到指定文本范围的边界框上边缘的距离（以 磅为单位）。 此为只读属性。

语法

表达式。BoundTop

表达 一个代表 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。