[已解决]求右键弹出二级级菜单

jhtjj

我已经会（注，其实也是从别人那依样画葫芦来的。）右键弹出一级级菜单了。程序如下： Sub 添加右键菜单()     Dim cd As CommandBarButton     On Error Resume Next     Application.CommandBars("cell").Controls("小工具").Delete     Set cd = Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1)     With cd         .Caption = "小工具"         .FaceId = 31         .OnAction = "测试"     End With End Sub Sub 测试()     msgbox "你好" End Sub 想要的是二级右键弹出菜单，也就是说，点开“小工具”后，能够打开“批量查找”、“成批去除批注”（注意，具体功能不需要），请会的同志出手帮助，在此，先谢谢了。

最佳答案

月排行榜 / 总排行榜

zjdh

2012-9-6 08:57

http://www.excelpx.com/thread-228235-1-1.html

跳转到最佳答案楼层

zjdh

http://www.excelpx.com/thread-228235-1-1.html

zjdh

再给你一个右键三级模板
右键三级菜单模板.rar (7.83 KB, 下载次数: 150)

2021-8-30 09:46 上传

点击文件名下载附件

jhtjj

谢谢zjdh的热心帮助，关于分界线的一个提问：
Sub 添加右键二级菜单（）
  Application.CommandBars("cell").Reset
    Set MyMenu = Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup，before:= 1)
    With MyMenu
        .BeginGroup = True           '分界线
        .Caption = "小工具"          '根据需要可改变显示名称
        Set CM1 = .Controls.Add(Type:=msoControlButton)
        Set CM2 = .Controls.Add(Type:=msoControlButton)
    End With

    With CM1
        .Caption = "命令一"        '根据需要可改变显示名称
        .OnAction = "宏1"          '根据需要可改变执行宏
        .FaceId = 266             '根据需要可改变显示图标
    End With

    With CM2
        .Caption = "命令二"
        .OnAction = "宏2"
        .FaceId = 59
End With
End sub

我在上面程序中，增加了before:=1，意思是显示在上面，那如何在“小工具”后面加分界线？！

zjdh

在最后添上一句
Application.CommandBars("cell").Controls(2).BeginGroup = True
即为第2个命令前

jhtjj

谢谢zjdh ，我懂了。

tmfm061

收藏学习，谢谢分享

dklover

无法读取啊

yssj1231

无法下载啥意思

zjdh

附件已更新，可以下载了。