7.10 追加したメニューを変更する 自分だけの新しいメニューを追加した後、その内容を変更したいなんてことはありませんか？例えば、メニューが使えないときはメニューを非活性状態にしたり、メニュー内の特定のボタンを非活性にするとか…。 というわけで、追加したメニューを後から変更する方法です。 メニュー内に新たにボタンを追加する 追加したメニューの中に、さらにボタンなどを追加する方法です。使用するメソッドなど、基本的な方法は「7.9 新しいメニューを追加する」と同じなのでそちらをどうそ。 ポイントは、コマンドバーコントロールオブジェクトの作成の所（Set cbcMenu…）でメニュー1のオブジェクトを作成し、そのオブジェクトに対して操作している点です。例では、右図のように作成したメニュー1の中へ、さらにボタン4を追加しています。 Sub prcMenuButtonAdd()     On Error GoTo ErrHand     Dim cbrCmd As CommandBar     Dim cbcMenu As CommandBarControl     'メニュー用のオブジェクトを作ります     Set cbrCmd = Application.CommandBars("Worksheet Menu Bar")     'メニュー1のオブジェクトを作ります     Set cbcMenu = cbrCmd.Controls("メニュー1")     '念のためボタン3を削除をしておきます     cbcMenu.Controls("ボタン3").Delete     'メニュー1の中へボタン4を追加しています     With cbcMenu.Controls.Add(Type:=msoControlButton)         .Caption = "ボタン4"         .OnAction = "prcButton4"     End With     'オブジェクトの破棄     Set cbcMenu = Nothing     Set cbrCmd = Nothing     Exit Sub ErrHand:     If Err.Number = 5 Then        Resume Next     Else        MsgBox Err.Description     End If End Sub 　※これはエクセルマクロです メニュー内のボタン見出しや実行する処理を変更する 追加したメニューの中のボタンの見出しや、実行する処理を変更する方法です。使用するメソッドなど、基本的な方法は「7.9 新しいメニューを追加する」と同じなのでそちらをどうそ。 ポイントは、コマンドバーコントロールオブジェクトの作成の所（Set cbcMenu…）でメニュー1のオブジェクトを作成し、そのオブジェクトに対して操作している点です。例では、右図のように作成したメニュー1の中にあるボタン3について、見出し（釦3に変更）と実行する処理（prcHappy3に変更）を変更しています。 Sub prcMenuButtonChange()     Dim cbrCmd As CommandBar     Dim cbcMenu As CommandBarControl     'メニュー用のオブジェクトを作ります     Set cbrCmd = Application.CommandBars("Worksheet Menu Bar")     'メニュー1のオブジェクトを作ります     Set cbcMenu = cbrCmd.Controls("メニュー1")     'ボタン3の見出しと実行する処理を変更しています     With cbcMenu.Controls("ボタン3")         .Caption = "釦3"         .OnAction = "prcHappy3"     End With     'オブジェクトの破棄     Set cbcMenu = Nothing     Set cbrCmd = Nothing End Sub 　※これはエクセルマクロです メニューの活性・非活性、ボタンの活性・非活性を変える 追加したメニューの中のボタンの活性・非活性の切り替えや、メニューの活性・非活性を変更する方法です。活性・非活性を変更する場合には、.Enabledプロパティを使い、設定内容はお馴染みのTrueが活性（使える）、Falseが非活性（使えない）です。 その他のポイントは、コマンドバーコントロールオブジェクトの作成の所（Set cbcMenu…）でメニュー1のオブジェクトを作成し、そのオブジェクトに対して操作している点です。例では、右図のように作成したメニュー1の中にあるボタン3を非活性に変更しています。 Sub prcMenuButtonEnabledChange()     Dim cbrCmd As CommandBar     Dim cbcMenu As CommandBarControl     'メニュー用のオブジェクトを作ります     Set cbrCmd = Application.CommandBars("Worksheet Menu Bar")     'メニュー1のオブジェクトを作ります     Set cbcMenu = cbrCmd.Controls("メニュー1")     'ボタン3を非活性にします     cbcMenu.Controls("ボタン3").Enabled = False     'オブジェクトの破棄     Set cbcMenu = Nothing     Set cbrCmd = Nothing End Sub 　※これはエクセルマクロです ちなみに、メニュー全体の活性・非活性切り替えの例は以下をどうぞ。例では、メニュー1を非活性にしています。 Sub prcMenuEnabledChange()     Dim cbrCmd As CommandBar     Dim cbcMenu As CommandBarControl     'メニュー用のオブジェクトを作ります     Set cbrCmd = Application.CommandBars("Worksheet Menu Bar")     'メニュー1のオブジェクトを作ります     Set cbcMenu = cbrCmd.Controls("メニュー1")     'メニュー1を非活性にします     cbcMenu.Enabled = False     'オブジェクトの破棄     Set cbcMenu = Nothing     Set cbrCmd = Nothing End Sub 　※これはエクセルマクロです それと、メニュー2の中にあるボタン2-1を非活性にするときは次のようにします。 Sub prcMenuEnabledChange()     Dim cbrCmd As CommandBar     Dim cbcMenu As CommandBarControl     'メニュー用のオブジェクトを作ります     Set cbrCmd = Application.CommandBars("Worksheet Menu Bar")     'メニュー1のオブジェクトを作ります     Set cbcMenu = cbrCmd.Controls("メニュー1")     'ボタン2-1を非活性にします     With cbcMenu.Controls("メニュー2")         .Controls("ボタン2-1").Enabled = False     End With     'オブジェクトの破棄     Set cbcMenu = Nothing     Set cbrCmd = Nothing End Sub 　※これはエクセルマクロです メニュー内のボタンなどを削除する 追加したメニューの中にあるボタンやメニューを削除する方法です。でも、既に出てます（笑）。削除するときは、ボタンやメニューに対して.Deleteメソッドを実行します。 その他のポイントは、コマンドバーコントロールオブジェクトの作成の所（Set cbcMenu…）でメニュー1のオブジェクトを作成し、そのオブジェクトに対して操作している点です。例では、右図のように作成したメニュー1の中にあるボタン3を削除しています。削除時、そのボタンが無いとエラーが出るのでOn Errror…で小細工してます。 Sub prcMenuButtonDelete()     On Error GoTo ErrHand     Dim cbrCmd As CommandBar     Dim cbcMenu As CommandBarControl     'メニュー用のオブジェクトを作ります     Set cbrCmd = Application.CommandBars("Worksheet Menu Bar")     'メニュー1のオブジェクトを作ります     Set cbcMenu = cbrCmd.Controls("メニュー1")     'ボタン3を削除をします     cbcMenu.Controls("ボタン3").Delete     'オブジェクトの破棄     Set cbcMenu = Nothing     Set cbrCmd = Nothing     Exit Sub ErrHand:     If Err.Number = 5 Then        Resume Next     Else        MsgBox Err.Description     End If End Sub 　※これはエクセルマクロです

[PR]管理人が書いたVBAプログラミング本 ■最速攻略 Excel VBA サンプル大全集 ■苦手なコードもこれで安心!Excel VBA超入門講座 ■Excel VBAゲーム大作戦 はじめて編※ 実践編※ ◆ここが知りたかった! Access VBA 500の技※ （アマゾンへジャンプします。※は共著作品） エクセルマクロTips 応用技・その他編 ◇その他の便利な機能   1.カーソルは今何どこにいる？    ・何行目、何列目にいるかを知る   2.データがある最終行を知る方法    ・最終列も同じ要領で   3.ワークブックの名前を知る方法    ・ワークシートの名前やワークシート数も    ・もちろん開いているワークブック数も   4.ワークシートの関数を使う方法    ・Worksheetfunctionオブジェクト   5.並べ替えをしてみよう   6.開いたときに自動で実行！    ・Workbook/Openイベント    ・Auto_Openプロシジャ    ・自動実行を回避する場合   7.マクロの記録機能を使ってVBAの記述を調べる   8.ワークブックのパスを取得   9.新しいメニューを追加する   10.追加したメニューを変更する   11.追加したメニューを削除する   12.アドインを作る    ・XLAのアプリケーション   13.アドインを組み込む、解除する    ・AddIns()    ・ダミーの処理Auto_Remove？！   14.Offsetプロパティ    ・基準の位置から指定した分ずらした場所   15.ワークシートの背景に画像を設定する・解除する   16.ワークシート上のコントロールを操作する    ・テキストボックスなどを作成・操作する方法 *その他の便利な機能のコンテンツは、整理・踏襲時に別カテゴリへ移動する場合があります ◇処理効率の向上に関する事例   1.SelectやSelectionは使わない   2.オブジェクト変数の方が速い！？    ・セルをオブジェクト変数経由で使う   3.データの最後を探す場合   4.合計や平均を求める場合   5.大量のデータを取り出す、書き込む    ・配列を使った方法   6.単純なコピペはDestination:=で    ・切り取り→貼付けも同じ要領で   7.連続した領域はオブジェクトで    ・For Each In〜Nextを使う   8.トドメは画面描画をOFF！ ◇その他   1.Excel VBA超入門講座    ・VBA＆プログラミング入門書の決定版！   2.最速攻略Excel VBAサンプル大全集    ・日頃の作業を手助けする実用ツールが満載 ■ブック・シート操作編 ■セル・行・列操作編 ■Applicationオブジェクト・イベント編 ■応用技・その他編 Happy! Happy! Islandその他のコンテンツ ■VBAプログラミング、その他 　Access VBAプログラミング＆Tips 　Excel VBA(エクセルマクロ)プログラミング＆Tips 　VBScript＆JScriptプログラミング＆Tips for WSH 　プログラミング基礎・入門 　HTMLの書き方 ■ダウンロードコーナー 　AccessとExcelのフリーソフト ■コミュニティー 　VBA質問掲示板 ■その他 　オレの話を聞けぇ♪（仮称／コラム） 　管理人プロフィール 　管理人へメール ■別館(海外向けサイト) 　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL! VBAプログラミング＆Tips集の "Happy! Happy! Island"トップページへ [リンク]IT関連情報サイトなど gihyo.jp 技術評論社提供のIT関連コンテンツサイト [リンク]一番クリックした国が優勝 ClickClickClick.com クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。 [PR]証券会社・投資運用関連サイト カブドットコム証券 逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！ マネックス証券 オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！ Ｅ＊トレード証券 オンライン専業証券�ｂPの口座数！業界最低水準の手数料体系と充実のサービスラインナップ！ 楽天証券のマーケットスピード ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！ オンライン証券徹底比較 価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！

Copyright(C) 1999-2006 結城圭介。 All rights reserved