目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

241 / 277

←次へ　｜　前へ→

【44】Excel 97 以降で、メニュー項目を簡単に追加するサブルーチン

谷誠之

- 04/4/9(金) 21:54 -


	引用なし

	パスワード

既存のメニューに新しいメニュー項目を追加するサブルーチンです。
ここでメニュー項目とは、例えば「ファイル(F)」メニューの中の「新規作成(N)...」や「開く(O)...」などの、それを実行したら何らかのアクションを起こす（つまり、マクロを登録する）メニューのことです。

私は変数名によく日本語を使います。これは賛否両論あると思いますが、私は「既存のメソッドやプロパティと区別できる」「コメントの代わりになる」という理由で使っています。

Sub MakeNewMenu(親 As Object, メニュー名 As String, マクロ名 As String, グループ As Boolean)

　　Dim SubMenu As CommandBarButton
　　Set SubMenu = 親.Controls.Add(msoControlButton)
　　With SubMenu
　　　　.Caption = メニュー名
　　　　.OnAction = マクロ名
　　　　.BeginGroup = グループ
　　　　.Style = msoButtonCaption
　　End With

End Sub

2,578 hits