生成工具栏添加多级菜单的要点是什么?

ningyong58

源文件见 http://club.excelhome.net/thread-624980-1-1.html
★創建工具列功能表★
效果见附件。


请问：
生成工具栏添加多级菜单的要点是什么?

ningyong58

要点分析
               .Style = msoButtonCaption
                .OnAction = 执行程序               
                If  是子菜单 Then
                    .BeginGroup = True
                End If
请问各位大侠的问题，还有要点需要补充。谢谢。

ningyong58

1 Set 工具列 = Application.CommandBars.Add(Name:=工具列名稱, Position:=msoBarTop, Temporary:=True)

2 Set 按鈕 = 工具列.Controls.Add(Type:=msoControlButton, Temporary:=True)

3  Set 新功能表按鈕 = 工具列.Controls.Add(Type:=msoControlPopup, Temporary:=True)

道理清清楚楚，用起来就是有点问题。哪位大侠能讲一下？