请教：如何恢复ACCESS的默认菜单和工具栏

zhuyiwen

恢复默认菜单和工具栏的办法

引用 Microsoft Office 9.0 Object Library
执行如下过程：

Public Sub EnableDefaultMenu()
    Dim oBar As CommandBar
         
    Set oBar = CommandBars("Menu Bar")
    oBar.Reset
End Sub

恢复默认菜单和工具栏，搞定！
注：Menu Bar是指ACCESS的主菜单[em23]

xinbao

我试试

make

commandbars是什么啊？

zhuyiwen

以下是引用make在2002-3-30 13:27:12的发言：
commandbars是什么啊？

Microsoft Office 的命令栏对象，对应于菜单和工具栏。

在OFFICE家族中，所有菜单和工具栏的对象模型都作为CommandBars命令栏对象被保存在共享的Microsoft Office 9.0 Object Library对象中，如图：

zhuyiwen

请参见：

http://www.accxp.com/club/topic. ... pic=1331&show=0

zhuyiwen

以下是引用ganrong在2002-3-30 14:47:43的发言：
学了一招。
是学会怎么把工具栏隐藏 ：）

恭喜！恭喜！

zhuyiwen

huanghai, 你看贴！

大熊

不是有重新设置按钮吗,下面代码不是多余?
Public Sub EnableDefaultMenu()
    Dim oBar As CommandBar
         
    Set oBar = CommandBars("Menu Bar")
    oBar.Reset
End Sub

zhuyiwen

以下是引用大熊在2002-5-4 23:23:31的发言：
不是有重新设置按钮吗,下面代码不是多余?
Public Sub EnableDefaultMenu()
    Dim oBar As CommandBar
          
    Set oBar = CommandBars("Menu Bar")
    oBar.Reset
End Sub

好象是的，但我没找到重新设置按钮[em05]