共用方式為

Options.MeasurementUnit 屬性 (Publisher)

  • 發行項

會傳回或設定代表 Microsoft Publisher 標準度量單位的 PbUnitType 常 數。 讀取/寫入。

語法

運算式。MeasurementUnit

表達 代表 Options 物件的變數。

傳回值

PbUnitType

註解

MeasurementUnit屬性值可以是 Publisher 類型程式庫中所宣告的下列PbUnitType 常數之一：

  • pbUnitCM 會將度量單位設定為公分。
  • pbUnitInch 會將度量單位設定為英吋。
  • pbUnitPica 會 將度量單位設定為 picas。
  • pbUnitPoint 會將度量單位設定為 點。

所有其他測量單位常數不適用於這個屬性;如果使用，則會傳回錯誤。

範例

本範例會將 Publisher 的標準度量單位設為點。

Sub SetUnitOfMeasurement() 
 Options.MeasurementUnit = pbUnitPoint 
End Sub

本範例會顯示目前的度量單位。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。