-------------------郑家龙编绎于MS OFFICE开发文档

删除菜单和工具栏

你可以通过在现有的工具栏上右击，在弹出的自定义对话框中删除工具栏和菜单栏或者通过VBA删除他们，但是你只能通过VBA来删除弹出式菜单栏，用CommandBars集合中的Delete方法从当前CommandBars集合中删除一个已经存在的弹出式菜单栏，可以参考下面的方法：

Function CBDeleteCBControl(strCBarName As String, _

                           strCtlName As String)

    On Error Resume Next

    Application.CommandBars(strCBarName).Controls(strCtlName).Delete

End Function

注意：如果你要删除的工具栏没有在参数strCBarName中指定，在上面的函数中将不会出现错误提示，是通过On Error Resume Next这一句继续往下执行。

(责任编辑：admin)

• ·Access自制自定义菜单
• ·VBA自定义菜单和菜单栏(六)
• ·VBA自定义菜单和菜单栏(五)
• ·VBA自定义菜单和菜单栏(四)
• ·VBA自定义菜单和菜单栏(三)
• ·VBA自定义菜单和菜单栏(二)
• ·VBA自定义菜单和菜单栏(一)
• ·Access编程-操作（宏）[18]
• ·Access编程-操作（宏）[17]
• ·宏的概念以及工作方式
• ·Access编程-操作（宏）[16]
• ·Access编程-操作（宏）[12]
• ·Access编程-操作（宏）[15]
• ·Access编程-操作（宏）[14]
• ·Access编程-操作（宏）[13]
• ·Access编程-操作（宏）[11]