Question

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

expression.VerticalPosition

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

示例

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

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