一発でエクセルのボタンをビッグサイズに切り替えるマクロ

最近はChromeやFirefox用のgreasemonkeyスクリプトなどの紹介ばかりでしたが、たまにはエクセルネタを。今日紹介するのはたった３行のVBAマクロの関数です。職場などで、複数のソフトを切り替えながら仕事をするときに重宝しています。

どんなマクロ？

ツールバーのボタンの大きさを切り替えます。ボタンサイズが小さいときに実行すれば大きいサイズへ、大きいときは小さいサイズへ戻すという風です。
「大画面のディスプレイでツールバーを特定のときだけ押しやすくする」だとか「複数のアプリケーションを切り替えて仕事をするときなどに作業効率を上げる」といった場面で役立つと思います。

スクリーンショット

20100201194912
↑↓これを１クリックで切り替える
20100201194911

インストール方法

下記コードをエクセルなら「PERSONAL.XLS」にコピペし、ユーザー設定ボタンに登録してお使いください。

Sub SwitchLargeButtons()
    CommandBars.LargeButtons = Not CommandBars.LargeButtons
End Sub

一応これまでVBE等を使ったことがない人でも分かるように、できるだけ詳細に手順を書いてみました。
よければご参考に。

■ マクロ関数の登録

１．エクセルを起動し、メニューの「ツール」＞「マクロ」＞「マクロの記録」を実行
２．「マクロの保存先」から「個人用マクロブック」を選択し［OK］ボタンを押す

３．メニューの「ツール」＞「マクロ」＞「記録終了」を押す
４．メニューの「ツール」＞「マクロ」＞「Visual Basic Editor」を実行
５．プロジェクトの「VBAProject（PERSONAL.XLS）」＞「Module1」（標準モジュール）をダブルクリック

６．今の２〜５で生成された空のマクロ関数「Sub Macro1()」〜「End Sub」（マクロ記録日が今日かどうか注意！）は不要なので削除
７．前述の３行のマクロコードを貼り付ける

８．メニューの「ファイル」＞「PERSONAL.XLSの上書き保存」を実行し、このウィンドウを閉じる

これで関数の登録は完了、次に１クリックで実行できるようボタンを登録します。

■ ツールバーのボタンへ登録

１．エクセルのメニューの「ツール」＞「ユーザー設定」を実行

２．「コマンド」タブを選択、分類：「マクロ」＞コマンド：「ユーザー設定ボタン」を選択し、ツールバーの好きな場所へドラッグ＆ドロップします。（ここでは分かりやすいように新規作成ボタンの左にします）

３．２で追加したボタンを右クリックし、「マクロの登録」を選択

４．「PERSONAL.XLS!SwitchLargeButtons」を選択し、［OK］ボタンをクリック
５．「ユーザー設定」ウィンドウを閉じる

おつかれさまでした。これで全て完了です。

最後に

実はVBA基礎文法最速マスター - いろいろ解析日記に触発されて書いてみました。VBAネタって需要あるんですかね？反響があったらまた違うネタで書いてみようかなと思います。
ちなみにこのマクロ、エクセル以外でもワードやPowerPointでも利用可能です。（でもパワポには「PERSONAL.XLS」のようなマクロの保存場所がない？！みたい）
そんなわけで良かったらオフィス大好きっ子な方は使ってみてください。