文書番号: 402161
最終更新日: 1997/10/23
---------------------------------------------------------------------------- Sub SubCommand() ActiveMenuBar.Menus("ツール").MenuItems("保護").MenuItems.Add "サブコマンド" End Sub ----------------------------------------------------------------------------
---------------------------------------------------------------------------- '新規メニューバーを表示します 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 ----------------------------------------------------------------------------
Keywords: KBHOWTO KB402161
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch