Excel VBA テクニック集
列の幅

列の幅の取得・設定です。

取得した数値のタイプはDoubleです。ただし、標準フォントの半角1 文字分が１単位ですので注意してください。

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

の幅を取得するコードは、

    Debug.Print Excel_App.ActiveSheet.Columns("C").ColumnWidth

になります。

自動調整する場合は、

    Excel_App.ActiveSheet.Columns("C:H").Columns.AutoFit

のようにAutoFitメソッドを使います。

ところで、HeightとWidthの扱いに違いがあります。３行の高さを調べると、

Height = 18 , RowHeight = 18 になります。それぞれの単位はPointです。

Ｃ列の幅を調べると、

Width = 63.75 , ColumnWidth = 10 になります。
Widthについては、Height,RowHeightと同じ単位系になってますが、ColumnWidthについては、最初に説明したように半角文字数です。

さらに、上記のようにWidthはセルの幅になりますが、ColumnWidthはセルに入る文字数になってます。
ColumnWidth = 10 のとき Width = 63.75 です。ColumnWidth = 20 のとき Width = 123.75 になってます。倍にはなりません。

ColumnWidth , Width の増加分により、１文字当たりの Width が計算できます。空白幅も計算できます。
Width/１文字 = (123.75 - 63.75) / 10
空白幅 = 63.75 - Width/１文字 * 10
計算結果の単位が(Point)です。

(Pixel) = （Point） * 20 / 15
により、単位をピクセルに変換できます。

悪いことに、セルの幅を設定する場合です。

Height	参照のみ
RowHeight	設定・参照可
Width	参照のみ
ColumnWidth	設定・参照可

上記により、セルの幅の設定はColumnWidthを使うことになるますが、ColumnWidthでセルの幅を正確に設定することはできません。
そこで、
Width(Pixel)をWidth(Point)に変換
(Width(Point) - 空白幅) / (Width/１文字)
により、Width(Pixel)からColumnWidthが計算できます。

Excel VBA テクニック集列の幅

Excel VBA テクニック集
列の幅