【VBA】セル内の文字列を縮小して全体を表示する

セルの横幅を超えた文字列を、

実行前
実行前

縮小して全体を表示できます!

実行後
実行後
PR

VBAコード

ここでは例として、
 ・シート「sample」のセル「B2~B3」の
 ・文字列を縮小して全体を表示
します。

実行前
実行前
Sub sample()
    
    '文字列を縮小して全体を表示する
    Worksheets("sample").Range("B2:B3").ShrinkToFit = True

End Sub

「Rangeオブジェクト」の「ShrinkToFit」プロパティに「True」を設定することで、「文字列を縮小して全体を表示」となります。
※「False」を指定すると「文字列を縮小して全体を表示」が解除されます。

PR

実行結果

セル内の文字列を縮小して全体を表示できました。

実行結果
実行結果
PR

参考

上記のVBAコードで使用した以下の詳細については、公式サイトをご確認ください。

●「Rangeオブジェクト」の「ShrinkToFit」プロパティ

タイトルとURLをコピーしました