Options.MeasurementUnit Property

  • Article
Publisher Developer Reference

Returns or sets a PbUnitType constant representing the standard measurement unit for Microsoft Office Publisher. Read/write.

Syntax

expression.MeasurementUnit

expression   A variable that represents a Options object.

Return Value
PbUnitType

Remarks

The MeasurementUnit property value can be one of the PbUnitType constants declared in the Publisher type library and shown in the following table.

Constant Description
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.

Example

This example sets the standard measurement unit for Publisher to points.

Visual Basic for Applications 
  Sub SetUnitOfMeasurement()
    Options.MeasurementUnit = pbUnitPoint
End Sub

This example displays the current unit of measurement.

Visual Basic for Applications 
  Sub GetUnitOfMeasurement()
    Dim measUnit As PbUnitType
    Dim strUnit As String

measUnit = Options.<strong>MeasurementUnit</strong>

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 " &amp; strUnit



End Sub

See Also