Метод Application.PointsToLines (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. PointsToLines (значение)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Value (Значение)	Обязательный	Single	Значение точки, преобразуемое в строки.

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

Одинарное

Замечания

Этот метод предполагает измерение в линиях из 12 точек; Фактический размер любого текста в публикации не влияет на коэффициент преобразования.

Используйте метод LinesToPoints для преобразования измерений в строках в точки.

Пример

В этом примере измерения в точках преобразуются в измерения в строках, демонстрируя, что размер шрифта в текущем выделенном фрагменте не влияет на коэффициент преобразования. Чтобы этот пример работал, в активной публикации должен быть выделен некоторый текст.

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"

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

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

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