该属性返回或设置(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