次の方法で共有

Application.PointsToLines メソッド (Word)

  • [アーティクル]

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

構文

式。 PointsToLines( _Points_ )

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

パラメーター

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

戻り値

1 行

例

次の使用例は、選択範囲内の最初の段落で、行間の値の単位をポイントから行に変換します。

MsgBox PointsToLines(Selection.Paragraphs(1).LineSpacing) _ 
 & " lines"

次の使用例は、変数の値 (結果の測定単位を示す 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 のサポートおよびフィードバックを参照してください。