不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

excel 启动时添加、删除菜单的问题？

楼主jintianatxd（tian）2004-09-03 20:41:12 在 VB / VBA 提问

我想在excel 打开一个文件时在“Standard”菜单中添加自己的菜单，在关闭文件时删除菜单，以下的代码总是提示不行。但是，以下的代码单独运行时是可以添加、删除菜单的，请各位高手指教。

Private Sub Workbook_Open()
Dim NM
Set NM = CommandBars("Standard").Controls.Add(Type:=msoControlPopup)
With NM
'.BeginGroup = True
.Caption = "打印证明"
.OnAction = "run_sub"
End WithEnd Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
CommandBars("Standardr").Controls("打印证明").Delete

End Sub 问题点数：120、回复次数：11Top

1 楼jintianatxd（tian）回复于 2004-09-03 20:43:12 得分 0

Private Sub Workbook_BeforeClose(Cancel As Boolean)
CommandBars("Standard").Controls("打印证明").Delete ‘这里多了各r。
End Sub

请各位写出解决的方法，谢谢。Top

2 楼jintianatxd（tian）回复于 2004-09-03 20:54:02 得分 0

问题已经解决，原来要将：

Dim NM
Set NM = CommandBars("Standard").Controls.Add(Type:=msoControlPopup)
With NM
'.BeginGroup = True
.Caption = "打印证明"
.OnAction = "run_sub"
End WithEnd Sub

CommandBars("Standardr").Controls("打印证明").Delete

等代码在类中再建两个个public function,才能执行，但是为什么了？

Top

3 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2004-09-03 20:55:32 得分 100

Private Sub Workbook_Open()
Dim NM
Set NM = Application.CommandBars("Standard").Controls.Add(Type:=msoControlPopup)
With NM
'.BeginGroup = True
.Caption = "打印证明"
.OnAction = "run_sub"
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Standard").Controls("打印证明").Delete
End SubTop

4 楼yinweihong（）回复于 2004-09-03 23:44:29 得分 20

Private Sub Command1_Click()
Dim Exl As New Excel.Application
Dim myBar As Office.CommandBar
Dim myButton As Office.CommandBarButton
Dim IsExist As Boolean
IsExist = False
Exl.Workbooks.Add
Exl.Visible = True
'如果存在则显示
For Each myBar In Exl.CommandBars
If myBar.Name = "打印证明" Then
myBar.Visible = True
IsExist = True
End If
Next
'不存在就创建
If Not IsExist Then
Set myBar = Exl.CommandBars.Add(Name:="打印证明", Position:=msoBarTop, Temporary:=False)
Set myButton = CommandBars("打印证明").Controls.Add
With myButton
.Caption = "打印证明"
.ToolTipText = "打印证明"
' .Picture =LoadPicture("f:\cd.ICO")
'指定表面图片序号
.FaceId = 10
.Visible = True
.Enabled = True
'指定宏
.OnAction = "打印证明"
End With
myBar.Visible = True
End If
End Sub
Top

5 楼jam021（jam）回复于 2004-09-05 21:33:05 得分 0

帮你顶一下Top

6 楼jintianatxd（tian）回复于 2004-09-07 21:52:08 得分 0

为什么 hhjjhjhj(大头)的加了 application.之后就可以呢？我想知道为什么？

Top

7 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2004-09-07 23:36:56 得分 0

////////为什么 hhjjhjhj(大头)的加了 application.之后就可以呢？我想知道为什么？////
对象中的语句，如果用简化写法（前面省去对象），则默认为省去Me
CommandBars("Standard").Controls.Add
相当于Me.CommandBars("Standard").Controls.Add
也就是ThisWorkbook.CommandBars("Standard").Controls.Add

而在模块中就不同了。（模块中有点智能匹配）Top

8 楼jam021（jam）回复于 2004-09-08 12:45:30 得分 0

同意楼上Top

9 楼yijiansong（不知路在何方）回复于 2004-09-08 13:02:54 得分 0

同意楼上楼上
Top

10 楼dongge2000（目前叫西西了）回复于 2004-09-09 22:57:20 得分 0

UPTop

11 楼jintianatxd（tian）回复于 2004-09-12 10:54:46 得分 0

thanks.Top