[已解决]VB中制作COM加载项时，如何添加子菜单

事后诸葛亮

以下是添加菜单按钮的代码，如何在mn2.Caption = "提取E表数据" 下 添加二级子菜单。
另请帮忙给注释一下红色代码部分。谢谢了。

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)

'    Dim mymenu As Object 'CommandBarControl
'    Dim mnMain As Object
'    Dim mn1 As Object, mn2 As Object
    On Error Resume Next

    Set oXL = Application
    oXL.CommandBars("Worksheet Menu Bar").Controls("提取功能").Delete
    Set mnMain = oXL.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=11)
    mnMain.Caption = "提取功能"
    Set mn1 = mnMain.Controls.Add(Type:=msoControlButton, Before:=1)
    With mn1
        .Caption = "提取文件名"
        .OnAction = "!<" & AddInInst.ProgId & ">"
        .FaceId = 162
        '.Visible = True
    End With
    Set mn2 = mnMain.Controls.Add(Type:=msoControlButton, Before:=2)
    With mn2
        .Caption = "提取E表数据"
        .BeginGroup = True '增加间隔符
        .OnAction = "!<" & AddInInst.ProgId & ">"
        .FaceId = 300
        '.Visible = True
    End With
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-19 11:32

(, 下载次数: 76)

上传

点击文件名下载附件

跳转到最佳答案楼层

甲百

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

事后诸葛亮

甲百 发表于 2013-7-19 10:13
http://www.excelpx.com/thread-144143-1-1.html

哈哈，我就是COPY的这个贴子上的，修改的他的。
但是不会添加子菜单，也看不太明白这段代码。。所以才上来求助的。

hwc2ycy

再添加CONTROLS

hwc2ycy

一级的类型为POPUP，二级的为BUTTON

hwc2ycy

1.     Set mn2 = mnMain.Controls.Add(Type:=msoControlPopup, Before:=2)
   
2.     With mn2
   
3.         .Caption = "提取E表数据"
   
4.         .BeginGroup = True    '增加间隔符
   
5.         .FaceId = 300
   
6.         .Visible = True
   
7.         With .Controls.Add(Type:=msoControlButton)
   
8.             .Caption = "子菜单一"
   
9.             .Visible = True
   
10.         End With
    
11.         With .Controls.Add(Type:=msoControlButton)
    
12.             .Caption = "子菜单二"
    
13.             .Visible = True
    
14.         End With
    
15.     End With

复制代码

事后诸葛亮

hwc2ycy 发表于 2013-7-19 10:28

出错了，方法数据成员未找到。。


我开始也是这么修改的，出错，所以来问一下。谢谢你了。

hwc2ycy

弄错了，不好意思。
==

hwc2ycy

hwc2ycy

直接在EXCEL中是没问题的。