Table of contents
TOC
Collapse the table of content
Expand the table of content

Options.MeasurementUnit Property (Publisher)

office 365 dev account|Last Updated: 8/24/2017
|
3 Contributors

Returns or sets a PbUnitType constant representing the standard measurement unit for Microsoft 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.

ConstantDescription
pbUnitCMSets the unit of measurement to centimeters.
pbUnitEmuDoesn't apply to this property; returns an error if used..
pbUnitFeetDoesn't apply to this property; returns an error if used.
pbUnitHaDoesn't apply to this property; returns an error if used.
pbUnitInchSets the unit of measurement to inches.
pbUnitKyuDoesn't apply to this property; returns an error if used.
pbUnitMeter .Doesn't apply to this property; returns an error if used.
pbUnitPicaSets the unit of measurement to picas.
pbUnitPointSets the unit of measurement to points.
pbUnitTwipDoesn't apply to this property; returns an error if used.

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
© 2018 Microsoft