列幅を取得・設定・する(ColumnWidth プロパティ)
ColumnWidth プロパティ
ColumnWidth プロパティは、対象セルの列の幅を標準フォントの半角文字数で、取得・設定します。プロポーショナル(文字によって文字幅が異なる)フォントの場合は、数字の「0」の幅が文字数の基準になります。
<取得>
Object.ColumnWidth
<設定>
result = Object.ColumnWidth
引数・戻り値
- object ・・・ 対象となる Range オブジェクトを指定します。
- result ・・・ セル幅(標準フォントの半角文字数。プロポーショナル(文字によって文字幅が異なる)フォントの場合は、数字の「0」の幅が文字数の基準)
Width プロパティとの違い
Width プロパティは、取得のみで設定することはできません。 また、ポイント単位で取得します。
Width プロパティで、対象オブジェクトをセル範囲にした場合、範囲内すべてのセルの列幅の合計値を返しますが、ColumnWidth プロパティの場合は、範囲内の 1 つのセルの列幅を返します。(指定されたセル範囲内すべての列の幅が同じでない場合やその中に結合セルが含まれている場合は、Null を返します。)
ColumnWidth プロパティ 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
Sub Sample_ColumnWidth() Dim DefSize, w1, w2, cw1, cw2 '現在の標準スタイルのフォントサイズを取得(⇒ 11) DefSize = ActiveWorkbook.Styles("Normal").Font.Size 'A列B列の列幅を「20」に設定 Range("A1:B1").ColumnWidth = 20 '列幅取得(フォントサイズ標準) cw1 = Columns("A").ColumnWidth w1 = Columns("A").Width '標準スタイルのフォントサイズを 14 に設定 ActiveWorkbook.Styles("Normal").Font.Size = 14 '列幅取得(フォントサイズ 14) cw2 = Columns("B").ColumnWidth w2 = Columns("B").Width '「ColumnWidth プロパティ(文字数)」と「Width プロパティ(ポイント)」を表示 MsgBox "フォントサイズ(" & DefSize & ")A列 ColumnWidth:" & cw1 & " /Width:" & w1 & Chr(13) & _ "フォントサイズ(14)B列 ColumnWidth:" & cw2 & " /Width:" & w2 'フォントサイズを元に戻す ActiveWorkbook.Styles("Normal").Font.Size = DefSize End Sub |
実行結果
関連記事
-
-
グラデーション(Pattern プロパティ・Gradient プロパティ)
セルの背景ににグラデーションを設定する Pattern プロパティを使用するとセ …
-
-
入力規則(日本語入力)Validation オブジェクト,IMEMode プロパティ
IMEMode プロパティ Validation.IMEMode プロパティ を …
-
-
セルのロック(Locked プロパティ)
セルのロック(Locked プロパティ) Locked プロパティで、セルのロッ …
-
-
対象のセルが配列数式の一部かどうか(HasArray プロパティ)
HasArray プロパティ HasArray プロパティは、対象のセルが配列数 …
-
-
セルを挿入する(Insert メソッド)
Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …
-
-
入力規則(Validation オブジェクト)
Validation オブジェクト セル範囲に入力できる値を制限するには 入力規 …
-
-
セルの位置を取得(Left プロパティ、Top プロパティ)
Left プロパティ・Top プロパティ Left プロパティは、「A列」の左端 …
-
-
AutoFilter オブジェクト(メソッド・プロパティ)
AutoFilter.ShowAllData メソッド AutoFilter.S …
-
-
数式を設定・取得する(Formula プロパティ・FormulaR1C1 プロパティ)
Formula プロパティ(FormulaR1C1 プロパティ) Formula …
-
-
文字列を縮小して全体を表示(ShrinkToFit プロパティ)
ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …