【エクセル/VBA】ShrinkToFitが効かない場合

VBAで以下のような書き方をすると、セルの書式設定の配置でセル内で縮小表示の設定になります。

Range("A1").ShrinkToFit = True

しかし、これを設定してもそうならない場合があります。そのときは、折り返して表示の設定になっている可能性があります。

以下の行を先ほどの行の前に追加することで解決できます。

Range("A1").WrapText = False