次の方法で共有

Application.PointsToEmus メソッド (Publisher)

  • [アーティクル]

測定を ポイント からエミュー (12700 エミュー = 1 ポイント) に変換します。 変換した単位を単精度浮動小数点型 (Single) の値として取得します。

構文

式。PointsToEmus (値)

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

パラメーター

名前 必須 / オプション データ型 説明
値 必須 単精度浮動小数点型 (Single) emu 単位に変換するポイント単位の値を指定します。

戻り値

1 行

注釈

emu 単位からポイント単位に変換するには、 EmusToPoints メソッドを使用します。

例

次の使用例は、ユーザーが入力したポイントの測定値を emus の測定値に変換します。

Dim strInput As String 
Dim strOutput As String 
 
Do While True 
 ' Get input from user. 
 strInput = InputBox( _ 
 Prompt:="Enter measurement in points (0 to cancel): ", _ 
 Default:="0") 
 
 ' Exit the loop if user enters zero. 
 If Val(strInput) = 0 Then Exit Do 
 
 ' Evaluate and display result. 
 strOutput = Trim(strInput) & " points = " _ 
 & Format(Application _ 
 .PointsToEmus(Value:=Val(strInput)), _ 
 "0.00") & " emus" 
 
 MsgBox strOutput 
Loop

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。