目安箱 IV

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

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

┃ ┃ ┃ ┃ ┃ ┃

242 / 277

←次へ　｜　前へ→

【43】Excel 97 以降で、メニューを簡単に追加するための関数

谷誠之

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


	引用なし

	パスワード

新しいメニューを作るための関数です。
ここで「メニュー」とは、「ファイル(F)」「編集(E)」などの、第一階層のメニューのことをさします。

戻り値は、新しく作成したメニューオブジェクト（正確には CommandBarPopup オブジェクト）です。

Function F_MakeNewPopup(親 As Object, メニュー名 As String, グループ As Boolean) As CommandBarPopup

　　Dim NewMenu As CommandBarPopup
　　Set NewMenu = 親.Controls.Add(msoControlPopup)
　　With NewMenu
　　　　.Caption = メニュー名
　　　　.BeginGroup = グループ
　　End With
　　
　　Set F_MakeNewPopup = NewMenu

End Function

2,503 hits