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

関連記事

: 日付時刻：時・分・秒を取得（Hour、Minute、Second 関数）

日付時刻から時・分・秒を取得する関数【書式】 time_hour = Hour …

: Option Compare ステートメント

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

: VBAの変数宣言

VBAの変数宣言について変数を暗黙的に宣言するエクセル VBA の場合、明示 …

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

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

: 日付時刻：日付から曜日を取得（ Weekday 関数、WeekdayName 関数）

Weekday 関数（日付から曜日を表す数値を返す）の使い方【書式】 week …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: 色の設定（Color プロパティ・RGB 関数）

Color プロパティ Color プロパティは、指定したオブジェクトの色を取得 …

: 文字列：文字列の空白を削除（Trim 関数, LTrim関数, RTrim関数）

Trim 関数・LTrim 関数・RTrim 関数の使い方【書式】＜先頭と末 …

: データをクリアする（ClearContents メソッド）

ClearContents メソッド対象がセル範囲（Range オブジェクト） …

: 文字列：２つの文字列を比較する（StrComp 関数）

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

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