Excel As CommandBarControlでメニューにマクロを登録

メルマガ発行内容

＜Excel As CommandBarControlでメニューにマクロを登録＞
こんにちは、三流プログラマーのＫｅｎ３です。

今回は、まだ実用的なツールも作っていないのに、
メニューにマクロを割り当てる方法を探ってみました。

http://www.ken3.org/p/h/office-029.lzh
に今回のサンプル保存されてます。

/*
 * １. 今回のキッカケ
*/
前回、下記のようにして、
ショートカットキーにマクロを割り当てました。

.OnKeyメソッドが見つかる。

Private Sub Workbook_Open()
    'プロシージャーの登録
    Application.OnKey "^{c}", "aaa"
    'CTRL+Cをつぶすと（横取りすると問題あるが・・）
End Sub

と、
Application.OnKeyを使用すると、ショートカットキーにマクロを割り当てられます。

http://www.ken3.org/p/h/office-028.lzh
に前回のサンプル保存されてます。
CTRL+CでAAAのマクロが起動します。

今回は、ファイル 編集　....などの横に、
Excelのメニューにオリジナルの項目を作ってみます。
~~~~~~~~~~~~~~~
/*
 * ２．As CommandBarControl を 探ってみた
*/

いろいろと調べてみて、CommandBarControlを使ってみました。
使い方は、わかってしまえば簡単で、

As CommandBarControl
と、コマンドバーのコントロールを定義して、
CommandBars("Worksheet Menu Bar").Controls.Add
で、メニューバーにコントロールを追加します。
※"Worksheet Menu Bar"など、イロイロとあるので、
　　ヘルプで確認してみてください。

あとは、同様に、下のメニューも作成して、
    '階層の下を作成する
    Set objSUBMENU = objMENU.Controls.Add   'アイテムを追加する
    objSUBMENU.Caption = "ＶＢＡのSUB AAA"  '表題
    objSUBMENU.OnAction = "aaa" 'モジュール名を文字列で
.Captionで表題
.OnActionで起動したいモジュールを文字列で指定します。

下記が、作成したサンプルです。

Sub menu_add()

    Dim objMENU As CommandBarControl
    Dim objSUBMENU As CommandBarControl
    
    'メインメニューを追加する
    Set objMENU = CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
    objMENU.Caption = "Ken3テスト"

    '階層の下を作成する
    Set objSUBMENU = objMENU.Controls.Add   'アイテムを追加する
    objSUBMENU.Caption = "ＶＢＡのSUB AAA"  '表題
    objSUBMENU.OnAction = "aaa" 'モジュール名を文字列で
    Set objSUBMENU = Nothing '設定後開放してもＯＫです。
    
    '階層の下を作成する
    Set objSUBMENU = objMENU.Controls.Add   'アイテムを追加する
    objSUBMENU.Caption = "SUB BBBを起動"  '表題
    objSUBMENU.OnAction = "bbb" 'モジュール名を文字列で
    Set objSUBMENU = Nothing '設定後開放してもＯＫです。

End Sub

Sub aaa()
    MsgBox "AAAが呼ばれました"
End Sub

Sub bbb()
    MsgBox "BBBが呼ばれました"
End Sub


↑メニューの追加実行のイメージです。

通常は、_Openのイベントなどで、メニューを初期化すればＯＫだと思います。

-【けんぞう！】---------------------------------------------------------
三流君の、小金稼ぎ、お小遣い稼ぎシリーズ第２弾（稼げないだろコラ！！）
http://www.ken3.org/etc/500yen/yosou.html
キャンペーン参加で得たコインを予想問題に投票。正解するとコインが倍増、
それを換金という画期的“お得エンタメ”です。
運と実力で誰でも現金獲得のチャンスがあります。
思ったよりもあたらないけど、無料なのでチャレンジしてみては？
------------------------------------------------------------------------

/*
 * ３．終わりの挨拶
*/

今回は、
メニューにコマンドを追加する、
そんな話でした。

http://www.ken3.org/p/h/office-029.lzh
に今回のサンプル保存されてます。

メニューが変更されることを確認してください。

マクロの登録よりも先に、
使えるツールを作らないと・・・
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
※メニュー登録方法より先に、使える便利モジュールだろ・・・

う〜ん、肝心な所が書いてないメルマガなんですよね・・・

何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

種類別のリンク や 広告など

Blogとリンク:[三流君の作業日記]/ [VBAやASPのサンプルコード]/ 広告-[通販人気商品の足跡]