Метод Application.PointsToLines (Word)

Статья
04/07/2023

Преобразует измерение из точек в строки (1 строка = 12 точек). Возвращает преобразованное измерение в виде единицы.

Синтаксис

выражение. PointsToLines( _Points_ )

выражение: переменная, представляющая объект Application. Необязательный параметр.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Points	Обязательный	Single	Измерение в точках.

Возвращаемое значение

Одинарное

Пример

В этом примере значение междустрочного интервала первого абзаца в выделенном фрагменте преобразуется из точек в строки.

MsgBox PointsToLines(Selection.Paragraphs(1).LineSpacing) _ 
 & " lines"

В этом примере значение переменной sngData (измерение в точках) преобразуется в сантиметры, дюймы, линии, миллиметры или пика в зависимости от значения переменной intUnit (значение от 1 до 5, указывающее результирующая единица измерения).

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

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через