Метод Application.PixelsToPoints (Publisher)
Преобразует измерение из пикселей в точки (1 пиксель = 0,75 точек). Возвращает преобразованное измерение в виде единицы.
Синтаксис
expression. PixelsToPoints (значение)
выражение: переменная, представляющая объект Application.
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Value (Значение) | Обязательный | Single | Значение пикселя, преобразуемое в точки. |
Возвращаемое значение
Одинарное
Замечания
Используйте метод PointsToPixels для преобразования измерений в точках в пиксели.
Пример
В этом примере измерения в пикселях, введенные пользователем, преобразуются в измерения в точках.
Dim strInput As String
Dim strOutput As String
Do While True
' Get input from user.
strInput = InputBox( _
Prompt:="Enter measurement in pixels (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) & " pixels = " _
& Format(Application _
.PixelsToPoints(Value:=Val(strInput)), _
"0.00") & " points"
MsgBox strOutput
Loop
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по