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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 列挙型変数（Enum ステートメント）

列挙型変数を使う列挙型変数を使用するには、Enum ステートメントを使って、宣 …

: 文字列：定数（改行・タブ）

改行・タブの定数これらの定数は、使用前に定義する必要はありません。コード中のど …

: ユーザー定義関数：自動再計算関数の設定（Volatile メソッド）

ユーザー定義関数で、自動再計算を行うかどうかを設定するワークシート上で使用する …

: Math 関数（ Abs,Atn,Cos,Exp,Log,Rnd,Sgn,Sin,Sqr,Tan ）

Abs 関数【書式】 value = Abs ( number ) 【引数・戻 …

: 文字列：文字列を最後から検索してその最初の文字位置を返す（InStrRev 関数）

InStrRev 関数任意の文字列の中で、指定した文字列を最後から検索して、見 …

: 変数がNull 値かどうかをチェックする（ IsNull 関数）

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

: CPU に制御を移す（DoEvents 関数）

DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …

: データ型を調べてそのデータ型を示す文字列を返す（TypeName 関数）

TypeName 関数の使い方 TypeName 関数は、引数に、データ型を調 …

: Erase ステートメント（配列の初期化・動的配列のメモリ解放）

Erase ステートメントの使い方【書式】 Erase myArray [, …

: VBA で正規表現を使う（RegExp オブジェクトのプロパティ）

RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …

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