Question

全部显示

应用于 Shape 和 ShapeRange 对象的 Top 属性。

该属性返回或设置指定图形或图形区域的垂直位置（以磅为单位）。Single 类型，可读写。

expression.Top

expression 必需。该表达式返回上述对象之一。

说明

图形位置根据图形边框左上角到图形锁定标志的相对位置进行度量。RelativeVerticalPosition 属性控制锁定标记是沿直线放置，沿段落放置，还是放置于页边距或页面的边缘。

对于包含多个图形的 ShapeRange 对象，Top 属性设置每个图形的垂直位置。

应用于 Application、Task 和 Window 对象的 Top 属性。

该属性（为 Application 对象）返回或设置活动文档、特定任务或窗口的垂直位置（以磅为单位）。Long 类型，可读写。

expression.Top

expression 必需。该表达式返回上述对象之一。

示例

当应用于 Application 对象时。

本示例将 Word 应用程序窗口置于距屏幕顶部 100 磅的位置。

Application.WindowState = wdWindowStateNormal
Application.Top = 100

当应用于 Shape 对象时。

本示例将活动文档中第一个图形的垂直位置设为距页面顶部 1 英寸。

With ActiveDocument.Shapes(1)
 .RelativeVerticalPosition = wdRelativeVerticalPositionPage
 .Top = InchesToPoints(1)
End With

本示例将活动文档中第一个和第二个图形的垂直位置设为距页面顶部 1 英寸。

With ActiveDocument.Shapes.Range(Array(1, 2))
 .RelativeVerticalPosition = wdRelativeVerticalPositionPage
 .Top = InchesToPoints(1)
End With

当应用于 Task 对象时。

本示例启动计算器，并将其窗口位置设为距屏幕顶部 100 磅。

Shell "Calc.exe"
With Tasks("Calculator")
 .WindowState = wdWindowStateNormal
 .Top = 100
End With