PointsToInches 方法

将磅转换为英寸（1 英寸 = 72 磅）。返回的度量数值为 Single 类型。

expression   可选。该表达式返回一个 Application 对象。

Points   Single 类型，必需。以磅为单位的度量值。

示例

本示例将活动文档上边距转换为英寸，并在消息框中显示结果。

MsgBox PointsToInches(ActiveDocument.Sections(1) _
    .PageSetup.TopMargin)

本示例根据 sngData 变量的值（从 1 到 5 的值，表明结果的度量单位），将 intUnit 变量的值（以磅为单位）转换为厘米、英寸、行、毫米或十二点活字。

Function ConvertPoints(ByVal intUnit As Integer, _
    sngData As Single) As Single

    Select Case intUnit
        Case 1
            ConvertPoints = PointsToCentimeters(sngData)
        Case 2
            ConvertPoints = PointsToInches(sngData)
        Case 3
            ConvertPoints = PointsToLines(sngData)
        Case 4
            ConvertPoints = PointsToMillimeters(sngData)
        Case 5
            ConvertPoints = PointsToPicas(sngData)
        Case Else
            Error 5
    End Select

End Function