Options.MeasurementUnit property (Publisher)

Статья
04/07/2023

Возвращает или задает константу PbUnitType , представляющую стандартную единицу измерения для Издателя Майкрософт. Для чтения и записи.

Синтаксис

expression. MeasurementUnit

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

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

PbUnitType

Замечания

Значение свойства MeasurementUnit может быть одной из следующих констант PbUnitType , объявленных в библиотеке типов издателя:

pbUnitCM задает единицу измерения в сантиметрах.
pbUnitInch задает единицу измерения в дюймах.
pbUnitPica задает единицу измерения picas.
pbUnitPoint задает единицу измерения в точках.

Все остальные константы единиц измерения не применяются к этому свойству; При использовании они возвращают ошибку.

Пример

В этом примере для стандартной единицы измерения publisher задаются точки.

Sub SetUnitOfMeasurement() 
 Options.MeasurementUnit = pbUnitPoint 
End Sub

В этом примере отображается текущая единица измерения.

Sub GetUnitOfMeasurement() 
 Dim measUnit As PbUnitType 
 Dim strUnit As String 
 
 measUnit = Options.MeasurementUnit 
 
 Select Case measUnit 
 Case 0 
 strUnit = "inches" 
 Case 1 
 strUnit = "centimeters" 
 Case 2 
 strUnit = "picas" 
 Case 3 
 strUnit = "points" 
 End Select 
 
 MsgBox "The current unit of measurement is " & strUnit 
 
End Sub

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

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

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