Excel VBA セル折り返して表示、縮小して表示、セルの結合を設定する

Excel VBAでセルの文字の制御（折り返して全体を表示する、縮小して全体を表示する、セルを結合する）の設定方法を記録します。

折り返して全体を表示するのは「WrapText」プロパティ、縮小して全体を表示するのは「ShrinkToFit」プロパティ, セルを結合するのは「MergeCells」プロパティを使います。

< スポンサーリンク >

折り返して全体を表示する

A1のセルを折り返して全体を表示してみます。

Sub test()
 Range("A1").WrapText = True
End Sub

A1のセルを縮小して全体を表示してみます。

Sub test()
 Range("A1").ShrinkToFit = True
End Sub

A1～B2のセルを結合してみます。

Sub test()
 Range("A1:B2").MergeCells = True
End Sub

一度に設定したい場合は「With」ステートメントを使うと便利です。

※「WrapText」（折り返して全体を表示）と「ShrinkToFit」（縮小して全体を表示）を同時に設定すると「WrapText」（折り返して全体を表示）が優先されます。

Rangeオブジェクト.WrapText = True or False

True ＝する
False ＝しない

Rangeオブジェクト.ShrinkToFit = True or False<

True ＝する
False ＝しない

Rangeオブジェクト.MergeCells = True or False

True ＝する
False ＝しない

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします

こんな記事も書いています