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

関連記事

: 配列（宣言・要素数の変更について）

配列の宣言【書式】※ 配列の宣言＜Type 型の静的配列（固定長配列）の宣言 …

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

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

: 文字に下線を設定する（Underline プロパティ）

下線を設定（Underline プロパティ） Underline プロパティは、 …

: 配列の要素数を取得する（UBound 関数・LBound 関数）

UBound 関数・LBound 関数【書式】 result = UBound …

: 書式を変換（Format 関数）

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

: フォント名（Name,ThemeFont,StandardFont）

フォント名を取得・設定する（Name プロパティ） Name プロパティは、オブ …

: 引数の整数部分を取得する（Fix 関数・Int 関数）

Fix 関数・Int 関数の使い方【書式】 number_fix = Fix …

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

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

: XlThemeColor 列挙型

XlThemeColor 列挙定数値内容 xlThemeColorDark …

: 文字列：指定した文字コードに対応する文字を返す（Chr 関数）

Chr 関数の使い方【書式】 result = Chr ( code ) 引数 …

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