Excel セルを縮小して全体を表示マクロ

今指定している範囲すべてのセルを「文字を縮小して全体を表示」の設定にするマクロを組みたいのですが、どのようにかけばよいでしょうか？
使い方としては、ショートカットボタンCtrl+kというように割り当てをしたいのですが、そのようにする方法も教えてください。

No.1 ベストアンサー 回答者： kybo 回答日時： 2012/03/06 07:46

’縮小して全体を表示する

Sub test()
Selection.ShrinkToFit = True
End Sub

としてみてください。

バージョンがExcel2007又は2010だとすると、開発→マクロ→マクロ名（test）選択、オプションで、ショートカットキーに「k」と入れ、OKすれば、ショートカットキーに割り当て出来ます。