|
こういうのじゃダメ?
APIとか他これ以上解りません。
Sub 自作メニューバー()
Application.DisplayFullScreen = True
Application.MenuBars.Add ("MenuTest")
MenuBars("MenuTest").Menus.Add ("自作メニューバー")
MenuBars("MenuTest").Menus("自作メニューバー").MenuItems.Add Caption:="メニューバー消去(&T)", OnAction:="メニューバー消去"
MenuBars("MenuTest").Activate
Application.CommandBars.DisableCustomize = True
End Sub
Sub メニューバー消去()
On Error Resume Next
Application.MenuBars("MenuTest").Delete
Application.CommandBars.DisableCustomize = False
Application.DisplayFullScreen = False
End Sub
|
|