Options.MeasurementUnit-Eigenschaft (Publisher)Options.MeasurementUnit Property (Publisher)

Zurückgeben oder festlegen eine PbUnitType -Konstante, die die Standardmaßeinheit für Microsoft Publisher darstellt.Returns or sets a PbUnitType constant representing the standard measurement unit for Microsoft Publisher. Lese-/Schreibzugriff.Read/write.

SyntaxSyntax

Ausdruck.expression. MeasurementUnitMeasurementUnit

Ausdruck Eine Variable, die ein Options -Objekt darstellt.expression A variable that represents a Options object.

RückgabewertReturn value

PbUnitTypePbUnitType

BemerkungenRemarks

Der Wert der MeasurementUnit -Eigenschaft kann eine der in der Publisher-Typbibliothek deklarierten und in der folgenden Tabelle angezeigten PbUnitType -Konstanten sein.The MeasurementUnit property value can be one of the PbUnitType constants declared in the Publisher type library and shown in the following table.

KonstanteConstant BeschreibungDescription
pbUnitCMpbUnitCM Legt die Maßeinheit auf Zentimeter fest.Sets the unit of measurement to centimeters.
pbUnitEmupbUnitEmu Gilt nicht für diese Eigenschaft; gibt einen Fehler zurück, wenn sie verwendet wird.Doesn't apply to this property; returns an error if used..
pbUnitFeetpbUnitFeet Gilt nicht für diese Eigenschaft; gibt einen Fehler zurück, wenn sie verwendet wird.Doesn't apply to this property; returns an error if used.
pbUnitHapbUnitHa Gilt nicht für diese Eigenschaft; gibt einen Fehler zurück, wenn sie verwendet wird.Doesn't apply to this property; returns an error if used.
pbUnitInchpbUnitInch Legt die Maßeinheit auf Zoll fest.Sets the unit of measurement to inches.
pbUnitKyupbUnitKyu Gilt nicht für diese Eigenschaft; gibt einen Fehler zurück, wenn sie verwendet wird.Doesn't apply to this property; returns an error if used.
PbUnitMeter.pbUnitMeter. Gilt nicht für diese Eigenschaft; gibt einen Fehler zurück, wenn sie verwendet wird.Doesn't apply to this property; returns an error if used.
pbUnitPicapbUnitPica Legt die Maßeinheit auf Pica fest.Sets the unit of measurement to picas.
pbUnitPointpbUnitPoint Legt die Maßeinheit auf Punkt fest.Sets the unit of measurement to points.
pbUnitTwippbUnitTwip Gilt nicht für diese Eigenschaft; gibt einen Fehler zurück, wenn sie verwendet wird.Doesn't apply to this property; returns an error if used.

BeispielExample

Dieses Beispiel legt die Standardmaßeinheit für Publisher auf Punkt fest.This example sets the standard measurement unit for Publisher to points.

Sub SetUnitOfMeasurement() 
 Options.MeasurementUnit = pbUnitPoint 
End Sub

Dieses Beispiel zeigt die aktuelle Maßeinheit an.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