Метод Application.PointsToInches (Word)

  • Статья

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

Синтаксис

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

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

Параметры

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

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

Одинарное

Пример

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

MsgBox PointsToInches(ActiveDocument.Sections(1) _ 
 .PageSetup.TopMargin)

В этом примере значение переменной 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 и обратная связь.