constant representing the standard measurement unit for Microsoft Publisher. Read/write.
| PbUnitType can be one of these PbUnitType constants. |
| pbUnitCM Sets the unit of measurement to centimeters. |
| pbUnitEmu Doesn't apply to this property; returns an error if used. |
| pbUnitFeet Doesn't apply to this property; returns an error if used. |
| pbUnitHa Doesn't apply to this property; returns an error if used. |
| pbUnitInch Sets the unit of measurement to inches. |
| pbUnitKyu Doesn't apply to this property; returns an error if used. |
| pbUnitMeter Doesn't apply to this property; returns an error if used. |
| pbUnitPica Sets the unit of measurement to picas. |
| pbUnitPoint Sets the unit of measurement to points. |
| pbUnitTwip Doesn't apply to this property; returns an error if used. |
expression.MeasurementUnit
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets the standard measurement unit for Publisher to points.
Sub SetUnitOfMeasurement()
Options.MeasurementUnit = pbUnitPoint
End Sub
This example displays the current unit of measurement.
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