Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 窗体标准控件 › 查看内容

如何恢复ACCESS的默认菜单

1970-1-1 08:00| 发布者: zhuyiwen| 查看: 2384| 评论: 0

原文地址:http://bcd.accxp.com/index.asp?Main=10&ArtID=6

作    者：林海群,朱亦文
发布日期：2002年10月30日
摘    要：通过对Microsoft Office 9.0 Object Library(OFFICE 2000)/Microsoft Office 10.0 Object Library(OFFICE XP)的引用, 重新恢复ACCESS的默认菜单.

正    文：

朱亦文的方法:

Microsoft Office 的命令栏对象

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

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

' 恢复默认菜单和工具栏，搞定！
' 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的主菜单

林海群的方法:

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

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

来源于：ACCESS中国

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

如何恢复ACCESS的默认菜单

最新评论

相关分类