次の方法で共有

Application.PointsToLines メソッド (Publisher)

  • [アーティクル]

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

構文

式。PointsToLines (値)

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

パラメーター

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

戻り値

1 行

注釈

このメソッドは、12 ポイントラインでの測定値を前提としています。文書内のテキストの実際のサイズは、変換係数には影響しません。

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

例

次の使用例は、ポイント単位の測定値を行単位の測定値に変換し、現在の選択範囲のフォント サイズが変換係数に影響を受けないことを示しています。 この使用例を実行するには、作業中の文書でテキストが選択されている必要があります。

Dim strOutput As String 
 
' Set text size to 10 points. 
Selection.TextRange.Font.Size = 10 
 
' Display result for 12 points. 
strOutput = "12 points = " _ 
 & Format(Application _ 
 .PointsToLines(Value:=12), _ 
 "0.00") & " lines"

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

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