返回介绍

PointsToCentimeters 方法

发布于 2019-09-29 09:59:36 字数 994 浏览 1109 评论 0 收藏 0

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

expression.PointsToCentimeters(Points)

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

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

示例

本示例将 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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文