Question

        Set subMenu = menutext.Controls.add(Type:=msoControlButton, ID:=3, before:=2)
        With subMenu
            .Caption = "MainMenu"
            .Enabled = True
        End With

       Set subMenu = menutext.Controls.add(Type:=msoControlButton, ID:=3, before:=k + 1)
       With subMenu
            .Caption = "SubMenu"
            .Enabled = True
        End With

我想（可能吗？） - MainMenu - ＆gt; SubMenu - ＆gt; SubsubMenu。直到我能够获得MainMenu - ＆gt;子菜单。

Answer 1

    Set menutext = Application.CommandBars("Cell").Controls.Add(msoControlPopup)
    With menutext
        .Caption = "MainMenu"
        .Enabled = True
    End With

   Set subMenu = menutext.Controls.Add(msoControlPopup)
   With subMenu
        .Caption = "SubMenu"
        .Enabled = True
    End With

   Set subMenuSubMenu = subMenu.Controls.add(Type:=msoControlButton, ID:=3, before:=k + 1)
   With subMenuSubMenu
        .Caption = "SubMenuSubMenu"
        .Enabled = True
    End With

如何在VBA Excel的子菜单下添加子菜单？

1 个答案: