Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ポイント単位の値に変換（CentimetersToPoints,InchesToPoints）

2015/10/07 2015/10/08

CentimetersToPoints メソッド

センチメートル単位の値をポイント単位の値に変換します。戻り値は、倍精度浮動小数点型（Double）の値です。

【書式】

object.CentimetersToPoints ( centimeters )

引数・戻り値

object ・・・ Application オブジェクト を指定します。
centimeters ・・・センチメートル単位の数値（倍精度浮動小数点型：Double）を指定します。省略不可。

InchesToPoints メソッド

インチ単位の値をポイント単位の値に変換します。戻り値は、倍精度浮動小数点型（Double）の値です。

【書式】

object.InchesToPoints ( inches )

引数・戻り値

object ・・・ Application オブジェクト を指定します。
inches ・・・インチ単位の数値（倍精度浮動小数点型：Double）を指定します。省略不可。

CentimetersToPoints メソッド,InchesToPoints メソッド使用例

サンプルVBAソース

　
Sub Sample_Point()


    '「1センチメートル」をポイント単位に変換（Round 関数で小数点以下2桁まで表示）
    Debug.Print Round(Application.CentimetersToPoints(1), 2)
    
    '「0.5インチ」をポイント単位に変換
    Debug.Print Application.InchesToPoints(0.5)
    
    '「50ポイント」をセンチメートル単位に変換（Round 関数で小数点以下2桁まで表示）
    Debug.Print Round(100 / Application.CentimetersToPoints(1), 2)
    

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

　

Sub Sample_Point()

'「1センチメートル」をポイント単位に変換（Round 関数で小数点以下2桁まで表示）

Debug.Print Round(Application.CentimetersToPoints(1), 2)

'「0.5インチ」をポイント単位に変換

Debug.Print Application.InchesToPoints(0.5)

'「50ポイント」をセンチメートル単位に変換（Round 関数で小数点以下2桁まで表示）

Debug.Print Round(100 / Application.CentimetersToPoints(1), 2)

End Sub

　

実行結果

- VBA基本 Application オブジェクト, CentimetersToPoints メソッド, InchesToPoints メソッド, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: Option Compare ステートメント

Option Compare ステートメントの使い方【書式】 Option C …

: 文字列：文字列の一部を別の文字列で置換（Replace 関数）

Replace 関数の使い方【書式】 result = Replace ( s …

: 文字列：文字を指定数並べた文字列を返す（String 関数）

String 関数【書式】 result = String ( number, …

: VBA の演算子（比較演算子）

比較演算子比較演算子による演算の結果は「真」の場合は「True」、「偽」の場合 …

: 指定した値を8進数で表記した文字列に変換する（Oct 関数）

Oct 関数の使い方【書式】 result = Oct ( expressi …

: カレントフォルダ（CurDir 関数、ChDir ステートメント、ChDrive ステートメント）

カレントフォルダカレントフォルダとは、ブックを開いたり保存するときに既定で参照 …

: 日付時刻：現在の日付・時刻を取得・設定（Now、Date、Time）

現在の日付・時刻を取得・設定現在の日付・時刻を取得（Now 関数、Date 関 …

: 乱数ジェネレータを初期化 (乱数系列を再設定) する（Randomize ステートメント）

Randomize ステートメントの使い方 Rnd 関数を使用する前に使用しま …

: 上付き文字・下付き文字（Superscript,Subscript）

上付き文字（Superscript プロパティ） Superscript プロパ …

: 変数がオブジェクト型かどうかをチェックする（ IsObject 関数）

IsObject 関数の使い方【書式】 result = IsObject ( …

PREV: 印刷の先頭のページ番号を設定（PageSetup.FirstPageNumber プロパティ）
NEXT: 印刷時、シート内のエラーをどう扱うかを設定（PrintErrors プロパティ）