[已解决]帮忙添加个菜单

huchuanxing

我有一个加载宏，聚焦了一些常用的功能，如制作工资条，分页小计，我想把其中的建立工作表名、工作簿内工作表合并等功能添加个菜单，象图1那样显示出这两个功能的菜单，应如何解决？

最佳答案

月排行榜 / 总排行榜

爱疯

2016-11-17 21:03

Private Sub Workbook_Open()

    With Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, temporary:=True)
        .Caption = "【hcx工具】"

        With .Controls.Add(Type:=msoControlButton, temporary:=True)
            .Caption = "制作工资栏"
            .FaceId = 51
            .OnAction = "模块1.test2_1"    '2_1表示第2层菜单中的第1项，以下同理
        End With

        With .Controls.Add(Type:=msoControlPopup, temporary:=True)
            .Caption = "分页小计"
            With .Controls.Add(Type:=msoControlButton, temporary:=True)
                .Caption = "功能3_1"
                .FaceId = 52
                .OnAction = "模块1.test3_1"
            End With

            With .Controls.Add(Type:=msoControlButton, temporary:=True)
                .Caption = "功能3_2"
                .FaceId = 53
                .OnAction = "模块1.test3_2"
            End With
        End With

        With .Controls.Add(Type:=msoControlButton, temporary:=True)
            .Caption = "一键还原内置菜单栏"
            .FaceId = 54
            .OnAction = "模块1.test2_3"
        End With

    End With

End Sub


caidan.rar (8.63 KB, 下载次数: 5)

2016-11-17 21:18 上传

点击文件名下载附件

跳转到最佳答案楼层

huchuanxing

请高手帮帮我！！

爱疯

Private Sub Workbook_Open()

    With Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, temporary:=True)
        .Caption = "【hcx工具】"

        With .Controls.Add(Type:=msoControlButton, temporary:=True)
            .Caption = "制作工资栏"
            .FaceId = 51
            .OnAction = "模块1.test2_1"    '2_1表示第2层菜单中的第1项，以下同理
        End With

        With .Controls.Add(Type:=msoControlPopup, temporary:=True)
            .Caption = "分页小计"
            With .Controls.Add(Type:=msoControlButton, temporary:=True)
                .Caption = "功能3_1"
                .FaceId = 52
                .OnAction = "模块1.test3_1"
            End With

            With .Controls.Add(Type:=msoControlButton, temporary:=True)
                .Caption = "功能3_2"
                .FaceId = 53
                .OnAction = "模块1.test3_2"
            End With
        End With

        With .Controls.Add(Type:=msoControlButton, temporary:=True)
            .Caption = "一键还原内置菜单栏"
            .FaceId = 54
            .OnAction = "模块1.test2_3"
        End With

    End With

End Sub


caidan.rar (8.63 KB, 下载次数: 5)

2016-11-17 21:18 上传

点击文件名下载附件

su45

http://www.excelpx.com/forum.php ... 705&pid=4101259