界面/窗体/控件
如何恢复ACCESS的默认菜单
2003-12-13 23:14:38

Microsoft Office 的命令栏对象

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

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

screen.width-333)this.width=screen.width-333" border=0>

' 恢复默认菜单和工具栏，搞定！' Microsoft Office 9.0 Object Library

Public Sub EnableDefaultMenu()   ' 定义命令对象   Dim oBar As CommandBar

   Set oBar = CommandBars("Menu Bar")   oBar.ResetEnd Sub

注：Menu Bar是指access的主菜单

林海群的方法:

Public Sub EnableDefaultMenu() On Error Resume Next    Dim obar As CommandBar

　 For Each obar In Application.CommandBars 　    obar.Reset 　 Next End Sub 

来 源 于：ACCESS中国

首页