将磅转换为行(1 行 = 12 磅)。返回的度量数值为 Single 类型。
expression.PointsToLines(Points)
expression 可选。该表达式返回一个 Application 对象。
Points Single 类型,必需。以磅为单位的度量值。
本示例将所选内容中第一段的行间距的值由磅转换为行。
MsgBox PointsToLines(Selection.Paragraphs(1).LineSpacing) _
& " lines"
本示例根据 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