[分享]：建立二级子菜单！

CCHH138

Option Explicit
Sub CreateMenu()
    Dim Menu As CommandBarControl, SubMenu As CommandBarControl
    Set Menu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
    With Menu
        .Caption = "我的菜单(&M)"
    End With
    With Menu.Controls.Add(msoControlButton, 1, , , True)
        .Caption = "菜单1"
        .OnAction = "wswx"
    End With
    With Menu.Controls.Add(msoControlButton, 1, , , True)
        .Caption = "菜单2"
        .OnAction = "wswx"
    End With
    Set SubMenu = Menu.Controls.Add(msoControlPopup, 1, , , True)
    With SubMenu
        .Caption = "菜单3"
        .BeginGroup = True
    End With
    With SubMenu.Controls.Add(msoControlButton, 1, , , True)
        .Caption = "子菜单1"
        .OnAction = "wswx"
        .Style = msoButtonIconAndCaption
        .FaceId = 71
    End With
    With SubMenu.Controls.Add(msoControlButton, 1, , , True)
        .Caption = "子菜单2"
        .OnAction = "wswx"
        .Style = msoButtonIconAndCaption
        .FaceId = 72
    End With
    Set SubMenu = SubMenu.Controls.Add(msoControlPopup, 1, , , True)
    With SubMenu
        .Caption = "子菜单3"
        .BeginGroup = True
    End With
    With SubMenu.Controls.Add(msoControlButton, 1, , , True)
        .Caption = "二级菜单1"
        .OnAction = "wswx"
        .Style = msoButtonIconAndCaption
        .FaceId = 71
    End With
    With SubMenu.Controls.Add(msoControlButton, 1, , , True)
        .Caption = "二级菜单2"
        .OnAction = "wswx"
        .Style = msoButtonIconAndCaption
        .FaceId = 72
    End With
    With Menu.Controls.Add(msoControlButton, 1, , , True)
        .Caption = "删除菜单"
        .OnAction = "DeleteMenu"
        .Style = msoButtonIconAndCaption
        .FaceId = 463
        .BeginGroup = True
    End With
End Sub
Sub wswx()
    MsgBox "这只是个范例！", vbInformation, "制作：ＷＳＷＸ"
End Sub
Sub DeleteMenu()
Application.CommandBars(1).Controls("我的菜单(&M)").Delete
End Sub

wangjiancctv

对我来说太深奥了

tony24

请问这个要写在巨集里面吗? 还没有尝试过菜单的使用

拉契

看不懂代码，要是楼主能详细解说一下就好了！