将磅转换为英寸(1 英寸 = 72 磅)。返回的度量数值为 Single 类型。
expression.PointsToInches(Points)
expression 可选。该表达式返回一个 Application 对象。
Points Single 类型,必需。以磅为单位的度量值。
本示例将活动文档上边距转换为英寸,并在消息框中显示结果。
MsgBox PointsToInches(ActiveDocument.Sections(1) _
.PageSetup.TopMargin)
本示例根据 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