将度量单位从磅转换为十二点活字 (1 派卡 = 12 磅)。 返回已转换为一个 单一 测量。
语法
expression。 PointsToPicas( _Points_ )
表达 一个代表“全局”对象的变量。 可选。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Points | 必需 | Single | 以磅为单位的度量值。 |
返回值
单精度
示例
以下示例将 36 磅转换为相应的十二点活字数。
MsgBox PointsToPicas(36) & " picas"
以下示例根据 intUnit 变量的值（从 1 到 5 的值，表示结果度量单位）将 sngData 变量的值（以磅为单位的度量值）转换为厘米、英寸、行、毫米或十二点活字。
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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。