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



 OFFICE精英俱乐部 ? 『 VBA交流 』 ? 怎样删除内置菜单栏？

您有 1 条新消息 [查看详情] [不再提示]
  		• 来自: System Message 标题: Welcome to OFFICE ... 内容: 新用户欢迎你光临OFFICE精英俱乐部,希望你能喜欢上 ...
       
    作者:
    标题: 怎样删除内置菜单栏？ 上一主题 | 下一主题
    forvba
    支柱会员



    水晶 222
    发贴 92
    注册 2003-1-21
    状态 离线
    第 1 帖
    怎样删除内置菜单栏？

    我手动删除全部内置菜单栏后，用   CommandBars("worksheet menu bar").Reset   可以全部恢复，但用   CommandBars("worksheet menu bar").Delete   却不能全部删除(提示如图)，为什么？应该怎样删除？

    [ Last edited by forvba on 2003-7-7 at 18:06 ]

     本贴包含图片附件:

    2003-7-7 06:04 PM
    查看资料  搜索该用户的全部帖子  发短消息   编辑帖子  引用回复  向版主反应这个帖子  
    夜半传说
    論壇的小草



    水晶 2923
    发贴 1055
    注册 2003-4-15
    状态 离线
    第 2 帖
    delete應該行不通,用

    CommandBars("Worksheet Menu Bar").Enabled = False
    2003-7-7 06:44 PM
    查看资料  发送邮件  搜索该用户的全部帖子  发短消息   编辑帖子  引用回复  向版主反应这个帖子  
    chijanzen
    超级版主



    水晶 5373
    发贴 1079
    注册 2002-12-12
    来自 TOSHIBA Satellite 31CT
    状态 离线
    第 3 帖


      Quote:
    Originally posted by forvba at 2003-7-7 06:04 PM:
    我手动删除全部内置菜单栏后，用   CommandBars("worksheet menu bar").Reset   可以全部恢复，但用   CommandBars("worksheet menu bar").Delete   却不能全部删除(提示如图)，为什么？应该 ...

    CommandBars只能隱藏
    CommandBarControl 可以刪除

    例:
    CommandBars("worksheet menu bar").Controls(1).Controls(1).Delete


    天行健 君子以自强不息
    2003-7-7 06:54 PM
    查看资料  发送邮件  搜索该用户的全部帖子  发短消息   编辑帖子  引用回复  向版主反应这个帖子  
    forvba
    支柱会员



    水晶 222
    发贴 92
    注册 2003-1-21
    状态 离线
    第 4 帖


      Quote:
    Originally posted by chijanzen at 2003-7-7 18:54:
    CommandBars只能隱藏
    CommandBarControl 可以刪除

    例:
    CommandBars("worksheet menu bar").Controls(1).Controls(1).Delete

    你是说，菜单项可以删除，那么如果要删除全部菜单项，应该怎样写速度最快呢？我是想全部删除后，再放上自定义的菜单。
    2003-7-7 07:12 PM
    查看资料  搜索该用户的全部帖子  发短消息   编辑帖子  引用回复  向版主反应这个帖子  
    chijanzen
    超级版主



    水晶 5373
    发贴 1079
    注册 2002-12-12
    来自 TOSHIBA Satellite 31CT
    状态 离线
    第 5 帖


      Quote:
    Originally posted by forvba at 2003-7-7 07:12 PM:
    你是说，菜单项可以删除，那么如果要删除全部菜单项，应该怎样写速度最快呢？我是想全部删除后，再放上自定义的菜单。

    不用刪除的,只要利用 Add  方法的參數就可以達成的
    expression.Add(Name, Position, MenuBar, Temporary)

    請注意第三個參數 MenuBar
    MenuBar   選擇性 Variant。選擇 True 會以新命令列取代使用中的功能表列。預設值為 False。
    所以只要設成 True  就變成全新的自訂菜單了

    Sub CreateCmdBar()
       Dim objBar As CommandBar
       On Error Resume Next
       Application.CommandBars("Mymenu").Delete
       On Error GoTo 0
       Set objBar = Application.CommandBars.Add("Mymenu", msoBarTop, True, False)
       objBar.Visible = True
    End Sub

    'Thiswrokbook
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
       On Error Resume Next
       Application.CommandBars("Mymenu").Delete
       On Error GoTo 0
    End Sub
    Private Sub Workbook_Open()
       Call CreateCmdBar
    End Sub

     附件: Book1.rar (8.29 K)
    该附件被下载次数 31



    天行健 君子以自强不息
    2003-7-7 09:41 PM
    查看资料  发送邮件  搜索该用户的全部帖子  发短消息   编辑帖子  引用回复  向版主反应这个帖子  
    forvba
    支柱会员



    水晶 222
    发贴 92
    注册 2003-1-21
    状态 离线
    第 6 帖


      Quote:
    Originally posted by chijanzen at 2003-7-7 21:41:
    不用刪除的,只要利用 Add  方法的參數就可以達成的
    expression.Add(Name, Position, MenuBar, Temporary)

    請注意第三個參數 MenuBar
    MenuBar   選擇性 Variant。選擇 ...

    谢谢您的回答，我已经完全明白了。
    还请问这一句  On Error GoTo 0  的含意，为什么要  Go To 0 ，而不用On Error Resum Next ？

    [ Last edited by forvba on 2003-7-8 at 10:11 ]
    2003-7-8 10:10 AM
    查看资料  搜索该用户的全部帖子  发短消息   编辑帖子  引用回复  向版主反应这个帖子  
    夜半传说
    論壇的小草



    水晶 2923
    发贴 1055
    注册 2003-4-15
    状态 离线
    第 7 帖
    這個我以前問過wswx版主，請參閱：

    http://www.officefans.net/cdb/vi ... r%2BGoTo%2B0%2Bwswx
    2003-7-8 12:09 PM
    查看资料  发送邮件  搜索该用户的全部帖子  发短消息   编辑帖子  引用回复  向版主反应这个帖子  

       

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

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

    论坛跳转:






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


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