Options.MeasurementUnit-Eigenschaft (Publisher)

Gibt eine PbUnitType-Konstante zurück, die die Standardmaßeinheit für Microsoft Publisher darstellt, oder legt sie fest. Lese-/Schreibzugriff.

Syntax

Ausdruck verwendet werden. MeasurementUnit

Ausdruck Eine Variable, die ein Options-Objekt darstellt.

Rückgabewert

PbUnitType

Hinweise

Der Eigenschaftswert " MeasurementUnit" kann eine der folgenden PbUnitType-Konstanten sein, die in der Publisher-Typbibliothek deklariert ist:

• pbUnitCM stellt die Maßeinheit auf Zentimeter ein.
• pbUnitInch legt die Maßeinheit auf Zoll fest.
• pbUnitPica stellt die Maßeinheit auf Picas ein.
• pbUnitPoint setzt die Maßeinheit auf Punkte.

Alle anderen Maßeinheitskonstanten gelten für diese Eigenschaft nicht. Wenn sie verwendet werden, geben sie einen Fehler zurück.

Beispiel

Dieses Beispiel legt die Standardmaßeinheit für Publisher auf Punkt fest.

Sub SetUnitOfMeasurement() 
 Options.MeasurementUnit = pbUnitPoint 
End Sub

Dieses Beispiel zeigt die aktuelle Maßeinheit an.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.