Word VBA教程:VerticalPosition属性

该属性返回或设置(Frame对象的)图文框边界或(Rows对象的)行与RelativeVerticalPosition属性所指定的项目之间的垂直距离。该属性可以是以磅为单位的度量值,也可以是任何有效的 WdFramePosition 常量。若要获得有效常量的列表,请参阅“Microsoft Visual Basic对象浏览器”。Single 类型,可读写。

expression.VerticalPosition

expression   必需。该表达式返回“应用于”列表中的一个对象。

VBA示例

本示例将活动文档中的第一个图文框与页面顶边垂直对齐。


Set myFrame = ActiveDocument.Frames(1)
With myFrame
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    .VerticalPosition = wdFrameTop
End With

本示例为活动文档中的第一个图形添加图文框,并将图文框置于距上边距 1 英寸。


If ActiveDocument.Shapes.Count >= 1 Then
    ActiveDocument.Shapes(1).Select
    Set aFrame = ActiveDocument.Frames.Add(Range:=Selection.Range)
    With aFrame
        .RelativeVerticalPosition = _
            wdRelativeVerticalPositionMargin
        .VerticalPosition = InchesToPoints(1)
    End With
End If

本示例将活动文档中的第一张表格与页面顶边垂直对齐。


Set myTable = ActiveDocument.Tables(1).Rows
With myTable
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    .VerticalPosition = wdTableTop
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号