VBA～セルに文字を収めよう(縮小)～Excel

VBAでセル内の文字列が収まらない場合に、縮小して全体を表示したい時はRange.ShrinkToFitプロパティをTrueに設定します。

単一セルに自動縮小を設定

下のコードを実行するとセルA1に自動縮小が設定されます。

Sub test1()

Range("A1").ShrinkToFit = True

End Sub

範囲に自動縮小を設定する

範囲を指定したい時はRange("範囲の左上のセル:範囲の右下のセル")で指定できます。

下のコードを実行するとセルA1からセルC3に自動縮小が設定されます。

Sub test2()

Range("A1:C3").ShrinkToFit = True

End Sub

指定したシートのセルに自動縮小が設定

シートを指定するときはWorksheets("シート名")で指定できます。

下のコードを実行するとSheet2のセルA1に自動縮小が設定されます。

Sub test3()

Worksheets("Sheet2").Range("A1").ShrinkToFit = True

End Sub

ブックを指定して自動縮小が設定

ブックを指定するときはWorkbooks("ブック名")で指定できます。

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1のセルA1に自動縮小が設定されます。

Sub test4()

Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").ShrinkToFit = True

End Sub