expression.PointsToLines(Value)
expression Required. An expression that returns one of the objects in the Applies To list.
Value Required Single. The point value to be converted to lines.
Remarks
This method assumes a measurement in 12-point lines
Use the LinesToPoints method to convert measurements in lines to points.
Example
This example converts measurements in lines to measurements in points, demonstrating that the font size in the current selection has no bearing on the conversion factor. Some text must be selected in the active publication for this example to work.
Dim strOutput As String
' Set text size to 10 points.
Selection.TextRange.Font.Size = 10
' Display result for 12 points.
strOutput = "12 points = " _
& Format(Application _
.PointsToLines(Value:=12), _
"0.00") & " lines"