[已解决][求助]如何删除右键菜单按钮

zlj

1\添加右键菜单可用下面代码

Sub 添加右键菜单()
On Error Resume Next
Application.CommandBars("cell").Controls("我的菜单").Delete
Dim mc As CommandBarControl
Set mc = Application.CommandBars("cell").Controls.Add
mc.Caption = "我的采单"
mc.OnAction = "aa"
MsgBox "完成"
End Sub

2\用下面的代码不能删除右键菜单按钮

Sub 删除右键菜单()
On Error Resume Next
Application.CommandBars("cell").Controls("我的菜单").Delete
MsgBox "已删除"
End Sub

请教删除右键菜单按钮的代码如何写谢谢!

最佳答案

月排行榜 / 总排行榜

amulee

2009-9-28 12:51

Sub 删除右键菜单()
On Error Resume Next
Dim mc As CommandBarControl
For Each mc In Application.CommandBars("cell").Controls
    If mc.Caption = "我的采单" Then mc.Delete
Next
MsgBox "已删除"
End Sub

跳转到最佳答案楼层

amulee

Sub 删除右键菜单()
On Error Resume Next
Application.CommandBars("cell").Reset
MsgBox "已删除"
End Sub

amulee

Sub 删除右键菜单()
On Error Resume Next
Dim mc As CommandBarControl
For Each mc In Application.CommandBars("cell").Controls
    If mc.Caption = "我的采单" Then mc.Delete
Next
MsgBox "已删除"
End Sub

zlj

用阿木前个代码,删除用户全部添加的菜单按钮.

如果要删除其中一个就不行了.

安贤

学习学习

zlj

请问:为什么这个代码就不行呢.

Sub 删除右键菜单()
On Error Resume Next
Application.CommandBars("cell").Controls("我的菜单").Delete
MsgBox "已删除"
End Sub

zlj

难道是书本有错?

amulee

汗，我想怎么不行。楼主写错一个字。

Sub 添加右键菜单()
On Error Resume Next
Application.CommandBars("cell").Controls("我的菜单").Delete
Dim mc As CommandBarControl
Set mc = Application.CommandBars("cell").Controls.Add
mc.Caption = "我的菜单"
mc.OnAction = "aa"
MsgBox "完成"
End Sub

Sub 删除右键菜单()
On Error Resume Next
Application.CommandBars("cell").Controls("我的菜单").Delete
MsgBox "已删除"
End Sub

Hersheys

哈哈 原来是楼主自己粗心

zlj

呀呀,真是的,是自已写错了字.

难怪,忙了一个早上怎么也不行