Word VBA教程:Height属性

返回或设置指定对象的高度,以磅为单位(除非指定其他度量单位)。如下表所示:

对象 高度
Application 返回或设置活动文档窗口的高度。Long 类型,可读写。
Cell、Cells 返回或设置表格中指定的某一个单元格或某几个单元格的高度。如果指定行的 HeightRule属性为 wdRowHeightAuto,则 Height 返回 wdUndefined。设置 Height 的属性值将使 HeightRule 设为 wdRowHeightAtLeast。Single 类型,可读写。
CustomLabel 返回或设置指定的自定义邮件标签的高度。Single 类型,可读写。
Frame 返回或设置指定图文框的高度。Single 类型,可读写。
Frameset 返回或设置指定的 Frameset对象的高度。Float 类型,可读写。HeightType属性决定表达该值单位的类型。
InlineShape 返回或设置指定的嵌入式图形的高度。Single 类型,可读写。
Row、Rows 返回或设置表格中指定的某一行或某几行的高度。如果指定行的 HeightRule属性为 wdRowHeightAuto,则 Height 返回 wdUndefined。设置 Height 的属性值将使 HeightRule 设为 wdRowHeightAtLeast。Single 类型,可读写。
Shape、ShapeRange 返回或设置指定图形的高度。Single 类型,可读写。
Task 返回或设置指定任务窗口的高度。Long 类型,可读写。
Window 返回或设置窗口的高度。当窗口处于最小化或最大化时,不能设置此属性。使用 Application对象的UsableHeight属性可决定窗口的最大尺寸。WindowState属性可用来判定窗口状态。Long 类型,可读写。

VBA示例

当应用于 Rows对象时。

本示例将活动文档第一张表格的行高度设置为至少 20 磅。


ActiveDocument.Tables(1).Rows.Height = 20

当应用于 Row对象时。

本示例显示表格中插入点所在行的高度(以磅为单位)。


If Selection.Information(wdWithInTable) = True Then
    MsgBox Selection.Rows(1).Height
End If

当应用于 Window对象时。

本示例对活动窗口的高度加以调整,以铺满应用程序的窗口区域。


With ActiveDocument.ActiveWindow
    .WindowState = wdWindowStateNormal
    .Height = Application.UsableHeight
End With

当应用于 ShapeRange对象时。

本示例将一张图片作为嵌入式图形插入活动文档,并更改此图片的高度和宽度。


Set aInLine = _
    ActiveDocument.InlineShapes.AddPicture( _
    FileName:="C:\Windows\Bubbles.bmp", _
    Range:=Selection.Range)
With aInLine
    .Height = 100
    .Width = 200
End With

当应用于 Frameset对象时。

本示例将指定框架页的 Frameset对象的高度设定为窗口高度的 25%。


With ActiveWindow.ActivePane.Frameset
    .HeightType = wdFramesetSizeTypePercent
    .Height = 25
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号