vba ，excel 2007 功能区的加载项中，通过代码 加载按钮后这些按钮该怎么引用已定义的宏？

引用已定义的宏:
Sub NowToolbar()
Dim arr As Variant
Dim id As Variant
Dim i As Integer
Dim Toolbar As CommandBar
On Error Resume Next
Application.CommandBars("MyToolbar").Delete
Application.CommandBars("MyToolbar").Name = "三星方案配置工具栏"
arr = Array("选择修改模版", "设置方案项目", "审核", "保存方案到本地", "另存为", "退出")
arr1 = Array("选择修改模版宏名", "设置方案项目宏名", "审核宏名", "保存方案到本地宏名", "另存为宏名", "退出宏名")
id = Array(9893, 284, 9590, 9614, 707, 986)
Set Toolbar = Application.CommandBars.Add("MyToolbar", msoBarTop)
With Toolbar
.Protection = msoBarNoResize
.Visible = True
For i = 0 To 5
With .Controls.Add(Type:=msoControlButton)
.Caption = arr(i)
.OnAction = arr1(i)
.FaceId = id(i)
.BeginGroup = True
.Style = msoButtonIconAndCaptionBelow
End With
Next
End With
Set Toolbar = Nothing
End Sub
功能区选项卡的名称VBA好像不能进行修改。

sub btnName_click()
call NowToolbar
end sub

btnName 是你的按钮的Name

这个我不大清楚 看看微软的vba的参考文档吧 这里应该有解决方法