Word VBA教程:Top属性

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

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

expression.Top

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

说明

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

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

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

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

expression.Top

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

VBA示例

当应用于 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号