サイズの単位をセンチメートルで指定する【CentimetersToPointsメソッド】【ExcelVBA】

CentimetersToPointsメソッド
サイズの変更にセンチメートル単位を使ったサンプルコード
注意点
関連記事

CentimetersToPointsメソッド

Excelの表示に関する単位はポイントですが、ポイントで示されるとイメージがつきにくいですよね。
CentimetersToPointsメソッドを使えば、馴染みのあるセンチメートルをポイントに変換してくれます。
構文
expression.CentimetersToPoints(Centimeters)

expression	Applicationオブジェクトを表す変数です。
Centimeters	変換の対象となる数値をセンチメートルで指定します。Double型。必須です。

サイズの変更にセンチメートル単位を使ったサンプルコード

Public Sub Sample()
    
    '行の高さを0.5センチにする
    Rows(1).RowHeight = Application.CentimetersToPoints(0.5)
   
    '列幅を5cmにする
    Columns(2).ColumnWidth = Application.CentimetersToPoints(5) _
    * (Columns(2).ColumnWidth / Columns(2).Width)

    '余白(左)を2cmにする
    ActiveSheet.PageSetup.LeftMargin = Application.CentimetersToPoints(2)
    
End Sub

注意点

1ptは0.35mmです。
列幅の単位は文字単位です。行の高さと同じように記述すると上手くいきません。
(.ColumnWidth(文字単位) / .Width(ポイント単位))
これで、1ポイントの文字単位が計算できるので、
列幅をセンチメート単位で指定するときはサンプルコードのように記述してください。