Word VBA教程:PointsToCentimeters方法

将度量单位由磅转换为厘米(1 厘米 = 28.35 磅)。返回的度量数值为 Single 类型。

expression.PointsToCentimeters(Points)

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

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

VBA示例

本示例将 30 磅的度量数值转换为相应的厘米数。


MsgBox PointsToCentimeters(30) & " centimeters"

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

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号