[三流君] −−> [VBAで楽しく] −−> [バックナンバー一覧]
−−> No.134 Excel As CommandBarControlでメニューにマクロを登録

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

メルマガ発行内容

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

こんにちは、三流プログラマーのKen3です。 今回は、まだ実用的なツールも作っていないのに、 メニューにマクロを割り当てる方法を探ってみました。 http://www.ken3.org/p/h/office-029.lzh に今回のサンプル保存されてます。

/* * 1. 今回のキッカケ */

前回、下記のようにして、 ショートカットキーにマクロを割り当てました。 .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のメニューにオリジナルの項目を作ってみます。 ~~~~~~~~~~~~~~~

/* * 2.As CommandBarControl を 探ってみた */

いろいろと調べてみて、CommandBarControlを使ってみました。 使い方は、わかってしまえば簡単で、 As CommandBarControl と、コマンドバーのコントロールを定義して、 CommandBars("Worksheet Menu Bar").Controls.Add で、メニューバーにコントロールを追加します。 ※"Worksheet Menu Bar"など、イロイロとあるので、   ヘルプで確認してみてください。 あとは、同様に、下のメニューも作成して、 '階層の下を作成する Set objSUBMENU = objMENU.Controls.Add 'アイテムを追加する objSUBMENU.Caption = "VBAの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 = "VBAのSUB AAA"  '表題
    objSUBMENU.OnAction = "aaa" 'モジュール名を文字列で
    Set objSUBMENU = Nothing '設定後開放してもOKです。
    
    '階層の下を作成する
    Set objSUBMENU = objMENU.Controls.Add   'アイテムを追加する
    objSUBMENU.Caption = "SUB BBBを起動"  '表題
    objSUBMENU.OnAction = "bbb" 'モジュール名を文字列で
    Set objSUBMENU = Nothing '設定後開放してもOKです。

End Sub
Sub aaa()
    MsgBox "AAAが呼ばれました"
End Sub
Sub bbb()
    MsgBox "BBBが呼ばれました"
End Sub
↑メニューの追加実行のイメージです。 通常は、_Openのイベントなどで、メニューを初期化すればOKだと思います。 -【けんぞう!】--------------------------------------------------------- 三流君の、小金稼ぎ、お小遣い稼ぎシリーズ第2弾(稼げないだろコラ!!) http://www.ken3.org/etc/500yen/yosou.html キャンペーン参加で得たコインを予想問題に投票。正解するとコインが倍増、 それを換金という画期的“お得エンタメ”です。 運と実力で誰でも現金獲得のチャンスがあります。 思ったよりもあたらないけど、無料なのでチャレンジしてみては? ------------------------------------------------------------------------

/* * 3.終わりの挨拶 */

今回は、 メニューにコマンドを追加する、 そんな話でした。 http://www.ken3.org/p/h/office-029.lzh に今回のサンプル保存されてます。 メニューが変更されることを確認してください。 マクロの登録よりも先に、 使えるツールを作らないと・・・ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ※メニュー登録方法より先に、使える便利モジュールだろ・・・ う〜ん、肝心な所が書いてないメルマガなんですよね・・・ 何かの参考となれば幸いです。 Excel/Access大好き、三流プログラマーKen3でした。


ページフッター

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

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

気になったジャンル↓を選択してください。

人気記事(来場者が多いTOP3):
[VBAでIE,WebBrowserを操作]・・・VBAでIE,WebBrowserを操作する サンプルです
[Access から Excel 連携 CreateObject("Excel.Application")]・・・AccessからExcelを操作したりデータの書き出しなどです
[VBAでOutlookの操作 CreateObject("Outlook.Application" )]・・・VBAからOutlookを使い、メール関係を処理するサンプルです
↑上記3つみたいなCreateObjectで他のアプリケーションを操作するサンプルが人気です。

Excel関係:
[Excel UserFormを操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
[ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
[Excel関係 関数、その他]・・・その他Excel関係です

Access関係:
[Access UserForm/サブフォーム 操作]・・・アクセスでフォームを使ったサンプルです
[Access レポート操作]・・・レポートを操作してみました
[Access クエリーやその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です

その他:VBAの共通関数やテキストファイルの操作など
[VBAでテキストファイル(TextFile)の操作]・・・普通のテキストファイルを使ったサンプルです
[VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます

開発時の操作: [F1を押してHELPを見る]/ [Debug.Print と イミディエイトウインドウ]/ [実行時エラーでデバッグ]/ [ウォッチ式とSTOP]/ [参照設定を行う]

仕様書(設計書?) XXXX書類: [基本設計書や要求仕様書]/ [テスト仕様書 テストデータ]/ [バグ票]/ [関数仕様書]/ [流れは 入力・処理・出力]

※↑文章の味付けが変わっていて、お口に合うかわかりませんが。。。
※※読んで、気分を悪くされたらスミマセン。

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



[三流君(TOP ken3.org へ戻る)] / [VBA系TOPへ] / [VBA系バックナンバー目次へ移動]