下面这段代码哪里错了

XUYUJING2007 · 发表于 2013-3-12 13:28

Sub aa()
Dim bar
Set bar = Application.CommandBars.Add("自定义", 1, True, True) '创建一个名为自定义的顶部菜单
End Sub

新建 Microsoft Office Access 2007 数据库.zip (186.37 KB, 下载次数: 7)

wanghaiqn1957 · 发表于 2013-3-12 13:41

曾见到是这样的：
Dim Menu As CommandBarControl
Set Menu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With Menu
.Caption = "自定义(&R)"
.BeginGroup = False
End With

marco · 发表于 2013-3-13 14:53

语句没有错误,但如果"自定义"已经存在(执行过一次),再执行此程序就会出错!

XUYUJING2007 · 发表于 2013-3-13 15:20

marco 发表于 2013-3-13 14:53
语句没有错误,但如果"自定义"已经存在(执行过一次),再执行此程序就会出错!

可是自定义菜单在哪里，我找不到啊

		自动登录	找回密码
密码			免费注册

[求助] 下面这段代码哪里错了