PointsToMillimeters 方法

将度量单位由磅转换为毫米（1 毫米 = 2.835 磅）。返回的度量数值为 Single 类型。

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

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

示例

本示例将 72 磅转换为相应的毫米数。

MsgBox PointsToMillimeters(72) & " millimeters"

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