請問如何自訂一個vba按鈕工具列?

[amanda]

請問新增一個工具列名稱後,如何將常用vba按鈕駐在工具列中?謝謝!

[沙拉油]

　　Dim mybar As CommandBar, mybarctl As CommandBarControl
　　'新增一個名稱為 Test_Bar 的浮動工具列，並指定位於程式視窗的左邊。
　　Set mybar = Application.CommandBars.Add(Name:="Test_Bar", Position:=msoBarLeft)
　　 '顯示 Test_Bar 工具列
　　mybar.Visible = True
　　'在 Test_Bar 上新增一個按鈕控制項。
　　Set mybarctl = mybar.Controls.Add(Type:=msoControlButton, ID:=2950)
　　'指定按鈕控制項的顯示文字為 xbarctl
　　mybarctl.Caption = "xbarctl"
　　'指定按下 xbarctl 時執行巨集 Macro2
　　mybarctl.OnAction = "Macro2"