MeasurementUnit Property

       

Returns or sets a PbUnitType 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