|
▼kobasan さん、皆さん、今年もよろしくお願いします。
>1段目のメニューを作る方法は以前の記事で分かったのですが、
>2段目のメニューを作る方法が分かりません。
>(???のところをどう作ればよいのか分かりません)
>よろしくお願いします。
>-------------------
>追加メニューの構造
> Menu_1A
> Menu_1B + menu_2A
Menu_1BもPopupにしてしまうと言うことですね?
> + 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(Type:= _
msoControlPopup, temporary:=True)
With Menu1
.Caption = "Menu_1B"
End With
'
'----------Menu_1Bにメニューを追加(2段目)<==ここからわからない???
Set menu2 = Menu1.Controls.Add
With menu2
.Caption = "Menu_2A"
.FaceId = 485
.OnAction = "macro2A"
End With
'-----
Set menu2 = Menu1.Controls.Add
With menu2
.Caption = "Menu_2B"
.FaceId = 486
.OnAction = "macro2B"
End With
>End Sub
でどうでしょうか?
|
|