Метод Application.CentimetersToPoints (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. СантиметрыToPoints (значение)

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

Параметры

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

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

Одинарное

Замечания

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

Пример

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

Dim strInput As String 
Dim strOutput As String 
 
Do While True 
 ' Get input from user. 
 strInput = InputBox( _ 
 Prompt:="Enter measurement in centimeters (0 to cancel): ", _ 
 Default:="0") 
 
 ' Exit the loop if user enters zero. 
 If Val(strInput) = 0 Then Exit Do 
 
 ' Evaluate and display result. 
 strOutput = Trim(strInput) & " cm = " _ 
 & Format(Application _ 
 .CentimetersToPoints(Value:=Val(strInput)), _ 
 "0.00") & " points" 
 
 MsgBox strOutput 
Loop

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

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

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