エクセル(Excel)&ワード(Word)質問掲示板

より見やすく使いやすいエクセル掲示板を目指し、新たにエクセルの質問掲示板を開設いたしました。 これに伴い、当サイトでは今後、新規投稿はできなくなります。(閲覧は当面可能です。)
今後は新掲示板をご利用いただきますよう宜しくお願い致します。今後ともよろしくお願い致します。
○新掲示板
エクセル(Excel)解決掲示板

エクセル・ワードの基本操作に関する質問や関数やマクロの使い方などエクセルとワードに関する質問掲示板。
Welcome Guest 
メインメニュー
ログイン
ユーザー名:

パスワード:


パスワード紛失

バー追加

なし バー追加

msg# 1
前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2010-5-9 17:28 | 最終変更
ゲスト    投稿数: 0
Private Sub Workbook_Open()

On Error Resume Next

ThisWorkbook.Application.CommandBars.ActiveMenuBar. _
Controls(MENU).Delete

Call CRATEMENU

End Sub

Private Sub Workbook_Activate()

On Error Resume Next

ThisWorkbook.Application.CommandBars.ActiveMenuBar. _
Controls(MENU).Delete

Call CRATEMENU

End Sub

Private Sub Workbook_Deactivate()

On Error Resume Next

ThisWorkbook.Application.CommandBars.ActiveMenuBar. _
Controls(MENU).Delete

End Sub

-------------------------------------------------------

Option Explicit

'定数宣言
Public Const MENU As String = "テスト"
Public Const SUB_MENU1 As String = "サブメニュー1"
Public Const SUB_MENU2 As String = "サブメニュー2"

Sub CRATEMENU()

'変数宣言
Dim OBJMENU As Variant
Dim CommandBarControl As Variant
Dim ACTION_MACRO As String

'変数設定
Set OBJMENU = ThisWorkbook.Application.CommandBars. _
ActiveMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)

'処理開始-------------------------------------------------------------

'メニューバー追加
With OBJMENU
.Caption = MENU
.TooltipText = "コメント"
End With

'サブメニューバー追加?
OBJMENU.Controls _
.Add(Type:=msoControlButton).Caption = SUB_MENU1

With OBJMENU.Controls(SUB_MENU1)
.OnAction = "test1"
.Visible = True
.TooltipText = "test"
End With

'サブメニューバー追加?
OBJMENU.Controls _
.Add(Type:=msoControlButton).Caption = SUB_MENU2

With OBJMENU.Controls(SUB_MENU2)
.OnAction = "test2"
.Visible = True
.TooltipText = "test"
End With

'処理終了-------------------------------------------------------------

Set OBJMENU = Nothing
Set CommandBarControl = Nothing

End Sub

Sub test1()

MsgBox "test1"

End Sub

Sub test2()

MsgBox "test2"

End Sub

これを効率的なマクロに可能だろうか?
投票数:117 平均点:6.15
返信する

このトピックに投稿する

題名
ゲスト名   :
投稿本文

  条件検索へ


スポンサーリンク
スポンサーリンク
エクセル・ワード質問/回答集 - クイズ・問題QUUS! - 無料英語学習 - 投資家・トレーダー掲示版
為替(FX)テクニカル分析入門 - エクセル(EXCEL)学習・入門 - Word(ワード)の使い方/活用・入門
Copy right(c) 2006-2010 エクセル&ワード質問掲示板 all right reserved