Options.MeasurementUnit-Eigenschaft (Publisher)

  • Artikel

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

Syntax

Ausdruck. MeasurementUnit

Ausdruck Eine Variable, die ein Options-Objekt darstellt.

Rückgabewert

PbUnitType

HinwBemerkungeneise

Der Wert der MeasurementUnit-Eigenschaft kann eine der folgenden PbUnitType-Konstanten sein, die in der Publisher-Typbibliothek deklariert sind:

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

Alle anderen Maßeinheitskonstanten gelten nicht für diese Eigenschaft. Wenn verwendet, 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.