![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
セルの横幅を超えた文字列を、
![実行前](https://excel-vba.work/wp-content/uploads/2020/12/vba_syukusyou_001.png)
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
縮小して全体を表示できます!
![実行後](https://excel-vba.work/wp-content/uploads/2021/04/vba_syukusyou_005.png)
VBAコード
ここでは例として、
・シート「sample」のセル「B2~B3」の
・文字列を縮小して全体を表示
します。
![実行前](https://excel-vba.work/wp-content/uploads/2021/04/vba_syukusyou_003.png)
Sub sample()
'文字列を縮小して全体を表示する
Worksheets("sample").Range("B2:B3").ShrinkToFit = True
End Sub
実行結果
セル内の文字列を縮小して全体を表示できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2021/04/vba_syukusyou_005.png)
参考
上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。
●「Rangeオブジェクト」の「ShrinkToFit」プロパティ