文字を折り返して全体を表示する【WrapTextプロパティ】【ExcelVBA】

構文

Range.WrapText= expression

WrapTextプロパティのサンプルコード

Public Sub sample()

    '■セルA1の文字を折り返して全体表示する
    Range("A1").WrapText = True
    Debug.Print Range("A1").WrapText 'True

    '■セルA1を含む表に対して文字を折り返して全体表示する
    Range("A1").CurrentRegion.WrapText = True
    
    '■シート全体の文字を折り返して全体表示する
    Cells.WrapText = True
    
End Sub

注意点

• WrapTextをTrueにすることで、行の高さは自動調整されます。(全体を表示する為)
• 文字を縮小して全体を表示する場合は、ShrinkToFitプロパティで設定可能です。
• 折り返して全体表示と縮小して全体表示の場合は、折り返して全体表示が優先です。

関連記事

• セルの文字のフォントを設定/取得する【Nameプロパティ】【ExcelVBA】
• セルのフォントサイズを設定/取得する【Sizeプロパティ】【ExcelVBA】
• セルの文字を太字に設定する【Boldプロパティ】【ExcelVBA】
• 文字に下線を設定する【Underlineプロパティ】【ExcelVBA】
• 文字に取り消し線を設定する【Strikethroughプロパティ】【ExcelVBA】