Access2000VBA・Excel2000VBA独学～「マクロの記録」機能の応用：Excel2010のリボンに、Excel2003時代の古いメニューバーやメニューボタンを好きなように表示する方法。昔の印刷ダイアログ（懐かしい！）とか、余白設定の画面が出てきて笑えます。といいますか、やはり意外と便利な面もありました。（基本、不完全だし、2010以降に慣れてしまわれた方はイマイチかもしれませんが・・・。）～
　　
※まだ書きかけです。すみません。
※間違ってたらすみません。
※メモ書きなので、自分でも意味不明な箇所も多いです。ごめんなさい。
　　
結局僕はとてつもないバカでした。今はクイックツールバーでほとんど間に合っちゃうんですね。そんなことも知らないExcel音痴です。でも、結構色々とわかりましたので、クイックツールバーだけでは解決できない複数のコマンドを混ぜたマクロやその他のマクロを「アドイン」タブに配置すれば、それはそれで役に立ちそうな気もします。
本記事は、「Excelの機能をちゃんと知らないバカがVBAをいじるとこうなる」、という「悪い見本（僕）」としてご活用ください。

　↓　こんなメニューをリボンの中に作ります。

※ 本記事は、Excel2010の32bitでのお話です。（ほかのバージョンでは未検証です。）
そして、基本、「不完全」です。
また、Excelをショートカットキーばかりで操作する方には、（もともと不完全な話なので）まったく関係のない・かえってジャマ・かつ・作業効率を落としかねない話ですので、もしかしたらあまり読まないほうがいいかもしれません。「Excelのエキスパートではない方で、どうにもリボンがめんどくさい方（僕はコレ。）」、あるいは逆にExcelを単なる関数多用の「作表ばかり」ではなく、「超多角的瞬間集計計算機・真のコンピュータ」としても両方、常に利用している方、あるいは、自社ユーザーにそれらの方（特に前者）が多い、というケースのほうが役に立つかもしれません（下図参照）。
ただ、調べてみましたろころ、一応、ショートカットキーも使えるようですので、その意味では、ショートカットキーをたくさん操作する方にもいいのかもしれません。例えば複雑なプログラムをボタン化したものをショートカットキー操作から実行したい場合などです。
下図の左上にいくつか配置されている「黄色い丸いボタン」のような「独自作成したプログラムボタン」の数によっては、ショートカットキーを押す数も、2/3～最大で1/2くらいに減るかもしれません。



例えば上図の黄色い丸いボタンで、「Pvt生成01」というボタンには、『ソースの表に対して自動的に、列や行が増えても再設定が不要な名前の定義をして・かつ・ピボットを2010の形式で自動作成し・かつ・表示と操作方法だけ昔のピボットと同じにし・かつ・オプション設定なども済ませたもの、が、ワンクリックで全自動で作れるプログラム（「マクロの記録」機能で生成されたプログラムをベースに作りました）』が仕込んであります。
このようなボタンをどれだけ作って、それをショートカットキー操作でどれだけ操作できるか、ということを考えるのも良いかもしれません。
ただ、新しいキー操作を覚えないといけなくなるし、クイックツールバーでもマクロ登録やショートカットキー操作はできるので、その意味で、「かえって非効率になるかも？」、と書きました。無駄、と感じられたらスルーしてください。
　　
　　
★ 関連記事
『「マクロ」のリボンへのメニューボタン化・関連の記事5つ』→1、2、3、4、5
『用語：ExcelやWordにおける「マクロ」とは？VBAと何が違う？（「ExcelやWord自身」は「マクロ」をどう判別・区別しているか？）Accessの場合は？』

★ ご注意
どんな不具合が出るかわからないので、あくまでも自己責任でよろしくお願いいたします。
古いメニューやボタンなので、少し、「表示はされるけど動かない」というものもあります。
基本、「不完全」です。
多分ですけど、2007の機能から完全に削除されてしまったものはダメなんだと思います。
（特にオートシェイプ系や「ツールバーの表示」系、など。）
罫線の下側の2重線のボタンも1重の線しか描画できませんでした。

ただ、逆に言うと、意外にも割と多くの数の「昔の機能」が「2010」の中には残されていた・・・とも言えるかもしれませんけど・・・。

あと、「追加」は成功しても「表示」に失敗するボタンも結構あります。
ただ、何か方法があるかもしれませんので、先生や先輩などに聞いてみてください。

すでに「郵便番号ウィザードのようなもの」の組み込み等々で、「アドイン」タブが出ている場合で、かつ、そのウィザードを一番最後（一番右側）に入れ替えたいときは、いったんウィザードを削除してから入れなおすと入れ替わるかもしれません。
基本、登録した順番に並ぶので・・・。

ただ、未検証ですし、ウィザードが使えなくなってしまうといけないので、おススメはしません。その場合は、他のExcelで試す、などをしてみてください。
　　
　　
★ はじめに

基本、Excel2003の「マクロの記録」機能を使ってコードを生成し、それをほとんど「まんま」で使いました。

使い勝手は結構いいです。（ってあたりまえか。これで育ってきたんですから。笑）
ただ、最近2010のリボンに少し慣れてきたので、逆に若干戸惑う面もありますが・・・。

でも、そのうちまたこちらのほうがやりやすくはなりそうです。ワンクリックも2クリックも減らせそう・・・。

お若い方で、昔のインターフェイス（メニューバー）を知らない人でも、使ってみると、意外と便利に感じてもらえるのではないかと思います。よく使う機能はいちいちタブを切り替えたり、余計なボタンを押さなくても済むので・・・。
クイックツールバーの「絵や文言が自由に変えられる版」みたいな感じで使えるのではないかと思います。

リボンのメニューほうは『 滅多に使わない最新機能の場所 』だけ覚えればいいからラクになりそうです。

うまく動かないないところは、ゆくゆくは、それも「マクロの記録」機能を利用して　より具体的なVBAプログラムを作ってボタン化すればいいので、ほとんど、この「アドイン」タブだけで作業できてしまうと思います。（特に、もともと、僕は、Excelユーザーじゃないのでこれだけあれば、既にほとんどのタブはあまり使いません・・・。）

本記事のサンプルプログラムでは、消したり出したりはいつでもできます（2013や2016でも動くかどうかは未検証ですので、あくまでも自己責任でお使いください。）

ちなみにですがメニューボタンのアイコンの「絵」の差し替えについてですが、、以前テストしましたところ、絵を自由に変えられるボタンは多いことは多いですが、ただ、一応、種類が限られているようです。全部が全部、変えられるわけではないっぽいです。ただ、ニコちゃんマークのようなアイコンは全部自由に変えられます。
基本、ボタンにしたい絵（ビットマップ形式）をクリップボードに手動でコピーしてから、「PastFace」メソッドを実行するとそのクリップボードの絵が貼りついて挿し変わります。
そのほか「FaceId」プロパティで既存の絵にしたい場合は、→こちらをご参照ください。

こちら（OfficeTANAKA様）や こちら（リボンの君とSuyamaSoftさま） のWebページも。

そのほか、こちら↓もご参考に。（2007以降でしか使えない技ですが・・・。）

http://suyamasoft.blue.coocan.jp/Ribbon/ReverseResolution/get_idMso/index.html

＝＝＝＝＝＝＝＝＝＝＝＝＝＝

　↓　こんな感じのメニューを、リボンの中に自作できました。

リボンの設定で、「アドイン」タブの順位を一番上に上げて、Excelを開いたときに一番最初にこのメニューが出るようにしてみました。

とってもらくちんです！(^^)

昔懐かしい、印刷ダイアログ（さっと印刷するだけなら、やっぱり便利です。）が出てくるので笑えます。(^^)　また、ボタンのワンクリックでの「ダイアログ設定無しのいきなり印刷」もできました。懐かしい・・・。し、やっぱり便利・・・。
「絶対に2枚になるわけない」という印刷をすぐにできますので・・・。

もちろん、昔の余白設定のように、点線を上下左右にドラッグしてヘッダ（？）や余白を自由に設定する画面も出ます。（プレビュー画面）

なお、このアドインタブの「表示」→「ツールバー」で非表示にできるツールバーもあります。（表示→ツールバー、の中のメニューは使えないものがほとんどですが。）

余計なツールバーを消すと、今回のプログラムでは以下のようなツールバー構成となります。

これ以上（横幅に収まらないくらい）、種類が増えると、メニュー全体が左右にスクロールできるようになります。）

また、画面いっぱいにすると、下図のように割とまだ未使用部分があります。
自作のプログラムをボタン化したものも、そこそこ作れそうです。
逆に、そういうものばっかりにして使うのもいいかもしれません。

　　
　　
★ ツールバーを追加するコード・削除するコード
以下のコードを標準モジュールにコピペして、OrgBarAdd() プロシージャを実行すると、ツールバーが登録されます。
OrgBarDel()プロシージャを実行すると、全部削除されて、リボンから消えます。

※どんな不具合が出るかわからないので、あくまでも自己責任でよろしくお願いいたします。

　　
　　
　　
　　

投稿タグ
, , , , , , ,