Question

vba 使得工具栏上的按钮指定的宏类似事件

使得工具栏上的按钮指定的宏类似事件
比如：有一个按钮“XXX”，对应“删除工具栏”指定宏
Private Sub 删除工具栏(ByVal tbar As String)
On Error Resume Next
Application.CommandBars(tbar).Delete
On Error GoTo 0
End Sub
怎么使得“删除工具栏”指定宏可得到按钮“XXX”相关信息（如：按钮“XXX”所在的工具栏名称），就
像Private Sub CommandButton1_Click()事件样可得到CommandButton1相关信息，或可从参数得到这些信息？那个高手可以使这个指定宏成为按钮“XXX”的事件似的代码过程。
答的好追加10分。
最好写出类似做成事件的VBA代码例子。好像用VBA“类模块”可制造“事件”，就是从没有弄过。
也就是说要像CommandButton1_Click样的把 按钮“XXX对象 传到Private Sub 删除工具栏(ByVal tbar As String这过程里可引用

Answer 1

很简单，你直接引用CommandButton1就行了,代码如下
Private Sub CommandButton1_Click()
MsgBox CommandButton1.Caption
MsgBox CommandButton1.Name
End Sub

追问

我说的是点击某个自定义工具栏上的按钮，Private Sub 删除工具栏(ByVal tbar As String)这里并没看到可引用按钮的名称的字串啊。

追答

你点击自定义工具栏的按钮，调用下面的Macro1，可以得到调用自定义工具栏的名字，其他的就明白了吧

Sub Macro1()
dim toolbarName as string
toolbarName=Application.CommandBars.ActionControl.Parent.Name
End Sub