如何恢复ACCESS的默认菜单

1970-1-1 08:00| 发布者: 朱亦文 ,林海群| 查看: 907| 评论: 0

朱亦文的方法:

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

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

相关分类