如何添加在上下文菜單中添加更多菜單？

Question

我在Excel中創建了一個很好的上下文菜單。我只是不確定如何添加另一個菜單.Caption = "My Special Menu"

所以我想上下文菜單出現這樣。

我的特別菜單> IT>微軟辦公軟件（那麼2個按鈕）

這是可能的上下文菜單？

當你按IT來說Google Docs中的按鈕時，也有可能在Microsoft Office下有另一個菜單嗎？

Option Explicit 

Public Const Mname As String = "MyPopUpMenu" 

Sub DeletePopUpMenu() 
    ' Delete the popup menu if it already exists. 
    On Error Resume Next 
    Application.CommandBars(Mname).Delete 
    On Error GoTo 0 
End Sub 

Sub CreateDisplayPopUpMenu() 
    ' Delete any existing popup menu. 
    Call DeletePopUpMenu 

    ' Create the popup menu. 
    Call Custom_PopUpMenu_1 

    ' Display the popup menu. 
    On Error Resume Next 
    Application.CommandBars(Mname).ShowPopup 
    On Error GoTo 0 
End Sub 

Sub Custom_PopUpMenu_1() 
    Dim MenuItem As CommandBarPopup 
    ' Add the popup menu. 
    With Application.CommandBars.Add(Name:=Mname, Position:=msoBarPopup, _ 
     MenuBar:=False, Temporary:=True) 

     ' add a menu that contains two buttons. 
     Set MenuItem = .Controls.Add(Type:=msoControlPopup) 
     With MenuItem 
      .Caption = "My Special Menu" 

      With .Controls.Add(Type:=msoControlButton) 
       .Caption = "Button 1 in menu" 
       .FaceId = 71 
       .OnAction = "'" & ThisWorkbook.Name & "'!" & "" 
      End With 

      With .Controls.Add(Type:=msoControlButton) 
       .Caption = "Button 2 in menu" 
       .FaceId = 72 
       .OnAction = "'" & ThisWorkbook.Name & "'!" & "T" 
      End With 
     End With 

Answer 1

試試這個

 With MenuItem 
     .Caption = "My Special Menu" 
     With .Controls.Add(Type:=msoControlPopup, before:=1) 
      .Tag = "submenu1" 
      .Caption = "IT" 
      With .Controls.Add(Type:=msoControlPopup, before:=1) 
       .Tag = "Submenu2" 
       .Caption = "Microsoft Office!" 


       With .Controls.Add(Type:=msoControlButton, before:=1) 
         .Tag = "btn1" 
         .Caption = "Button 1 in menu" 
         .FaceId = 71 
         .OnAction = "'" & ThisWorkbook.Name & "'!" & "" 
       End With 
       With .Controls.Add(Type:=msoControlButton) 
         .Tag = "btn2" 
         .Caption = "Button 2 in menu" 
         .FaceId = 72 
         .OnAction = "'" & ThisWorkbook.Name & "'!" & "T" 
       End With 

      End With 
     End With 
     End With