Application.PointsToPicas メソッド (Word)

単位をポイントからパイカに変換します (1 パイカ = 12 ポイント)。 1 つ として変換された値を返します。

構文

式。 PointsToPicas( _Points_ )

式Application オブジェクトを表す変数。 オプション。

パラメーター

戻り値

1 行

例

次の使用例は、値 36 ポイントを、対応するパイカ単位の数値に変換します。

MsgBox PointsToPicas(36) & " picas"

次の使用例は、変数の値 (結果の測定単位を示す 1 から 5 の値) に応じて、変数 sngDataintUnit の値 (ポイント単位) をセンチメートル、インチ、線、ミリメートル、または pica に変換します。

Function ConvertPoints(ByVal intUnit As Integer, _ 
 sngData As Single) As Single 
 
 Select Case intUnit 
 Case 1 
 ConvertPoints = PointsToCentimeters(sngData) 
 Case 2 
 ConvertPoints = PointsToInches(sngData) 
 Case 3 
 ConvertPoints = PointsToLines(sngData) 
 Case 4 
 ConvertPoints = PointsToMillimeters(sngData) 
 Case 5 
 ConvertPoints = PointsToPicas(sngData) 
 Case Else 
 Error 5 
 End Select 
 
End Function

関連項目

Application オブジェクト

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

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