? ltp:  退出 | 短消息 | 控制面板 | 备忘录 | 会员 | 搜索 | 统计 | 论坛首页 | 帮助 返回 OFFICE精英俱乐部



 OFFICE精英俱乐部 ? 『 VBA交流 』 ? 在自定义菜单中，请大家帮助我在1和2处的代码写全。

您有 1 条新消息 [查看详情] [不再提示]
  		• 来自: System Message 标题: Welcome to OFFICE ... 内容: 新用户欢迎你光临OFFICE精英俱乐部,希望你能喜欢上 ...
       
    作者:
    标题: 在自定义菜单中，请大家帮助我在1和2处的代码写全。 上一主题 | 下一主题
    chinaxx
    高级会员




    水晶 120
    发贴 40
    注册 2003-1-16
    状态 离线
    第 1 帖
    在自定义菜单中，请大家帮助我在1和2处的代码写全。

    在自定义菜单中，请大家帮助我在1和2处的代码写全。
    我自己根据帮助和提示写了很多次也没有成功，这么晚了，
    只好请大家帮我一下吧。

    Sub OpenMyMenu()
    '自定义多级选单函数
    On Error Resume Next
    '忽略错误
        Dim cmb As CommandBarControl
        Set cmb = AddCustomCommandBarPopup("系统(&S)")
         AddCustomCommandBarItem cmb, "退出系统(&X)", "auto_close", True, True

    请帮助1:想把系统的“格式”工具栏加在这里         
       
    　　Set cmb = AddCustomCommandBarPopup("系统维护(&P)")
    请帮助2:想把系统的“数据”工具栏的“排序”加在这里
        AddCustomCommandBarItem cmb, "密码输入(&P)", "密码输入", False, True
        AddCustomCommandBarItem cmb, "管 理 员(&m)", "管理员", True, True
          
        Set cmb = AddCustomCommandBarPopup("帮助(&H)")
        AddCustomCommandBarItem cmb, "关于系统(&A)", "frmmyabout", False, True
                  
       MenuBars("cmb").Activate '激活自定义选单

    End Sub
    2003-5-14 12:26 AM
    查看资料  发送邮件  搜索该用户的全部帖子  发短消息   编辑帖子  引用回复  向版主反应这个帖子  
    chinaxx
    高级会员




    水晶 120
    发贴 40
    注册 2003-1-16
    状态 离线
    第 2 帖
    请帮助1:

    '自定义多级选单函数
    On Error Resume Next
    '忽略错误
        Dim cmb As CommandBarControl
        Set cmb = AddCustomCommandBarPopup("系统(&S)")
         AddCustomCommandBarItem cmb, "退出系统(&X)", "auto_close", True, True

    请帮助1:想把系统的“格式”工具栏加在这里         
       
    　　Set cmb = AddCustomCommandBarPopup("系统维护(&P)")
    2003-5-14 04:22 PM
    查看资料  发送邮件  搜索该用户的全部帖子  发短消息   编辑帖子  引用回复  向版主反应这个帖子  
    wswx
    Excel Developer



    水晶 5812
    发贴 632
    注册 2003-2-16
    来自 中国.天津
    状态 离线
    第 3 帖
    Sub wswx()
        Dim bar As CommandBarControl, mybar1 As CommandBarPopup, mybar2 As CommandBarButton
        On Error Resume Next
        Set bar = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup)
        With bar
            .Caption = "系统(&S)"
        End With
        Set mybar2 = bar.Controls.Add(msoControlButton)
        With mybar2
            .Caption = "退出系统(&X)"
            .OnAction = "auto_close"
        End With
        Set mybar1 = bar.Controls.Add(Type:=msoControlPopup, ID:=CommandBars(1).Controls(5).ID)
        Set mybar2 = bar.Controls.Add(Type:=msoControlButton, ID:=CommandBars(1).Controls(7).Controls(1).ID)
    End Sub


    excelvba@163.com
    2003-5-14 04:56 PM
    查看资料  发送邮件  搜索该用户的全部帖子  发短消息   编辑帖子  引用回复  向版主反应这个帖子  
    chinaxx
    高级会员




    水晶 120
    发贴 40
    注册 2003-1-16
    状态 离线
    第 4 帖
    谢谢WSWX！！您的帽子真有特色！

    2003-5-15 01:31 AM
    查看资料  发送邮件  搜索该用户的全部帖子  发短消息   编辑帖子  引用回复  向版主反应这个帖子  

       

    可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

    快速回复主题
    标题:   (选填内容)
    选项:
    禁用 URL 识别
    禁用 Smilies
    禁用 Discuz! 代码
    使用个人签名
    接收新回复邮件通知
               [完成后可按 Ctrl+Enter 发布]

    论坛跳转:






    < 联系我们 - OFFICE精英俱乐部 >


    Powered by Discuz! 2.0 COML ? 2002, Crossday, Bokavan Corp.