Contents
センチメートル単位の数値を、ポイント（1ポイントは\(0.352\dot{7}\)mm）単位に変換します。印刷設定でページの余白を設定するときに使います。
- 構文
- Double = Application.CentimetersToPoints( Centimeters )
- 引数
- Centimeters 必須
- 変換の対象となる数値を指定します。
- 戻り値
Application オブジェクトを返すメソッド・プロパティ
- Application.CentimetersToPoints メソッド
- Microsoft Excelアプリケーションを表すApplication オブジェクトを返します。
ポイントとは
文字やページ設定のサイズの単位としてポイントが使われます。ポイントとは印刷物の大きさの単位で、1ポイントは1インチの72分の1となります。
1インチは25.4mm（2.54cm）なので1ポイントは以下の式で求められます。
\[1ポイント=\frac{25.4}{72}\rm{mm}=0.352\dot{7}\rm{mm}\] \[1ポイント=\frac{2.54}{72}\rm{cm}=3.52\dot{7}\rm{cm}\]この式を変形すると1mmあたり何ポイントかを求められます。
\[1\rm{mm}=\frac{72}{25.4}ポイント=2.8346456692913\rm{ポイント}\]1cmあたりは上の式を10倍すれば良いので以下のようになります。
\[1\rm{cm}=\frac{72}{2.54}ポイント=28.346456692913\rm{ポイント}\]使い方
センチメートル単位からポイント単位に変換
3cmをポイント単位に変換します。
DIM Application = Excel.Application
PRINT Application.CentimetersToPoints(3)- 結果
85.0393700787401
余白をセンチメートル単位で指定
ページの上下左右の余白を3cmに設定します。設定した値は[ページレイアウト]タブ-[余白]-[ユーザー設定の余白]で確認することができます。
DIM Application = Excel.Application
DIM margin = Application.CentimetersToPoints(3)
WITH Excel.ActiveSheet.PageSetup
.TopMargin = margin
.BottomMargin = margin
.LeftMargin = margin
.RightMargin = margin
ENDWITHこの記事は役に立ちましたか？
ご協力ありがとうございます。
関連記事
- XLOPEN関数 (スクリプト関数)
- Excelまたは OOo のCalcを起動。
- XLSHEET関数 (スクリプト関数)
- Excelシートを追加・削除する。
- PageSetup オブジェクト
- Excel のシートの印刷設定を表すオブジェクトです。シートの用紙サイズ、余白、方向、印刷タイトルなど、印刷に関連する設定を管理するのに使用されます。
- Application オブジェクト
- Excel全体を表すオブジェクトです。Excel全体に対しての操作、設定変更をしたい場合に使います。
- Border オブジェクト
- 上下左右一つひとつの罫線を表します。
- Borders オブジェクト
- RangeオブジェクトまたはStyleオブジェクトの4つの罫線を表す、4つのBorderオブジェクトのコレクションです。
- Characters オブジェクト
- オブジェクトに含まれる文字列の文字を表します。
- Chart オブジェクト
- ブック内のグラフを表します。
- ChartObjects オブジェクト
- 指定したグラフ シート、ダイアログ シート、またはワークシート上のすべての ChartObject オブジェクトのコレクション。
- Charts オブジェクト
- 指定されたブックまたは作業中のブックにあるすべてのグラフシートのコレクションです。