Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


38706 / 76738 ←次へ | 前へ→

【43165】Re:メニューバー&タイトルバーを非表示に...
発言  Jaka  - 06/10/4(水) 11:16 -

引用なし
パスワード
   こういうのじゃダメ?
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

0 hits

【43164】メニューバー&タイトルバーを非表示に... KAMU 06/10/4(水) 9:36 質問
【43165】Re:メニューバー&タイトルバーを非表示... Jaka 06/10/4(水) 11:16 発言

38706 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free