Метод Application.PointsToСантиметры (Word)

Преобразует единицу измерения из пунктов в сантиметры (1 сантиметр = 28,35 баллов). Возвращает преобразованную единицу измерения.

Синтаксис

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

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

Параметры

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

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

Одинарное с плавающей точкой

Пример

В этом примере единица измерения в 30 пунктов преобразуется в соответствующее количество сантиметров.

MsgBox PointsToCentimeters(30) & " centimeters"

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