Share via

MeasurementUnit Property [Publisher 2003 VBA Language Reference]

  • Article

PbUnitType

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

Applies to | Options Object