|
1段目のメニューを作る方法は以前の記事で分かったのですが、
2段目のメニューを作る方法が分かりません。
(???のところをどう作ればよいのか分かりません)
よろしくお願いします。
-------------------
追加メニューの構造
Menu_1A
Menu_1B + menu_2A
+ menu_2B
-------------------
Sub test()
'MenuBarをReset
Application.CommandBars("Worksheet Menu Bar").Reset
'-----
Set 追加Menu = CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _
msoControlPopup, temporary:=True)
追加Menu.Caption = "追加メニュー"
'------------------------------------サブメニューの項目(1段目)
Set Menu1 = 追加Menu.Controls.Add
With Menu1
.Caption = "Menu_1A"
.FaceId = 481
.OnAction = "macro1A"
End With
'-----
Set Menu1 = 追加Menu.Controls.Add '<===???
With Menu1
.Caption = "Menu_1B"
End With
'
'----------Menu_1Bにメニューを追加(2段目)<==ここからわからない???
'set menu2 = ****** '<===???
'With menu2
' .Caption = "Menu_2A"
' .FaceId = 485
' .OnAction = "macro2A"
'End With
'-----
'set menu2 = ****** '<===???
'With menu2
' .Caption = "Menu_2B"
' .FaceId = 486
' .OnAction = "macro2B"
'end with
End Sub
|
|