PointsToPicas 方法

将度量单位由磅转换为十二点活字（1 十二点活字 = 12 磅）。返回的度量数值为 Single 类型。

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

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

示例

本示例将 36 磅转换为相应的十二点活字数。

MsgBox PointsToPicas(36) & " picas"

本示例根据 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