次の方法で共有


Global.PointsToCentimeters メソッド (Word)

単位をポイントからセンチメートル (1 センチメートル = 28.35 ポイント) に変換します。 1 つ として変換された値を返します。

構文

PointsToCentimeters( _Points_ )

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

パラメーター

名前 必須 / オプション データ型 説明
Points 必須 単精度浮動小数点型 (Single) ポイント単位で指定します。

戻り値

1 行

次の使用例は、値 30 ポイントを、対応するセンチメートル単位の数値に変換します。

MsgBox PointsToCentimeters(30) & " centimeters"

次の使用例は、intUnit の値 (変換後の単位を示す 1 ~ 5 の値) に応じて、sngData の値 (ポイント単位) をセンチメートル、インチ、行、ミリメートル、またはパイカに変換します。

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

関連項目

グローバル オブジェクト

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

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