[XL] メニューバーにサブコマンドを追加する方法

現象

サブコマンドを追加するには、MenuItems オブジェクトの Add メソッドを使用します。具体的な記述例として以下のサンプルを参照してください。このサンプルプロシージャを使用するときは、下線のあるカタカナは必ず半角カタカナで入力してください。

サンプル 1

次のサンプル モジュールでは、 [ツール] メニューの [保護] に [サブコマンド] というサブコマンドを追加しています。このとき、メニュー名やコマンド名は全角・半角など、実際に表示されている表記と同じように記述してください。

  ----------------------------------------------------------------------------
  Sub SubCommand()
   ActiveMenuBar.Menus("ツール").MenuItems("保護").MenuItems.Add "サブコマンド"
  End Sub
  ----------------------------------------------------------------------------

サンプル 2

次のサンプル モジュールでは、マクロ "MenuBar_Add" を実行することにより、新規メニューバーを表示しています。マクロ "SubCommandNew" を実行すると、新規メニューバーに [メインメニュー] メニュー、[コマンド] コマンド、[サブコマンド] サブコマンドを追加しています。マクロ "MenuBar_Del" を実行すると、Visual Basic モジュール (モジュール シート) のメニューバーを表示します。

  ----------------------------------------------------------------------------
  '新規メニューバーを表示します
  Sub MenuBar_Add()
      MenuBars.Add "NewMenuBar"
      MenuBars("NewMenuBar").Activate
  End Sub
  'メニューバー NewMenuBar にメニューを追加します
  Sub SubCommandNew()
      ActiveMenuBar.Menus.Add Caption:="メインメニュー"
      ActiveMenuBar.Menus("メインメニュー").MenuItems.AddMenu "コマンド"
      ActiveMenuBar.Menus("メインメニュー").MenuItems("コマンド").MenuItems. _
          Add "サブコマンド"
  End Sub
  'モジュールシート用のデフォルトのメニューに戻します
  Sub MenuBar_Del()
    MenuBars(xlModule).Activate
    MenuBars("NewMenuBar").Delete
  End Sub
  ----------------------------------------------------------------------------

注意

このサンプルプロシージャはプログラミング言語の使用方法の一例として紹介するものであり、内容およびその運用結果に関しては一切の責任を負いません。また、お客様固有の目的に合わせたプロシージャの内容変更は行っておりませんので、あらかじめご了承ください。