Options.MeasurementUnit プロパティ (Publisher)

Microsoft Publisher の標準測定単位を表す PbUnitType 定数を設定または返します。 値の取得と設定が可能です。

構文

式。MeasurementUnit

式Options オブジェクトを表す変数。

戻り値

PbUnitType

注釈

MeasurementUnit プロパティの値には、Publisher タイプ ライブラリで宣言されている次のいずれかの PbUnitType 定数を指定できます。

• pbUnitCM は、測定単位をセンチメートルに設定します。
• pbUnitInch は、測定単位をインチに設定します。
• pbUnitPica は、測定単位を picas に設定します。
• pbUnitPoint は 、測定単位をポイントに設定 します。

その他の測定単位定数はすべて、このプロパティには適用されません。を使用すると、エラーが返されます。

例

次の使用例は、使用する長さの単位をポイントに設定します。

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 のサポートおよびフィードバックを参照してください。