MyVBA加载宏——添加自定义菜单03——功能分析

功能分析

要实现的这个添加代码的菜单，需要具备以下几个特点：

• 要添加的项目肯定会不停的改变，所以必须要能够方便添加代码和自动更新。
• 即能添加单个的按钮，也能在菜单上继续添加下拉式的菜单，这样方便一些同类型的功能放在一起。

01

自动更新

要自动更新是比较简单的，只要在加载宏打开的时候，执行一次添加菜单的功能即可，所以，需要在加载宏的Thisworkbook模块添加代码：

Private Sub Workbook_Open()
    Call AddCommanBar
End Sub

这样加载宏打开的时候，每次都去重新创建一次菜单，只要把创建菜单的代码逻辑规划好就可以。

02

分类自动添加

因为需要分类（单独按钮和新的弹出式）创建，所以必须有个地方能够让我们知道要创建的是什么类型的，个人做法是：

毕竟这个不是非常复杂的程序，所以在一个单独的文件夹专门存放代码，然后手动创建一个目录，平时只要去维护这个目录即可。

目录的信息主要有：

msoControl  添加控件类型（单独按钮和新的弹出式）
caption    控件的显示名称
faceID    控件的图标
endflag    这个是标记弹出式控件结束的

按如下格式创建一个CommandBarDir.txt文件：

msoControl,caption,faceID,endflag
1,vba_main,538,
1,i_row,73,
10,Object,361,
1,dic,2,
1,ado,50,
1,fso,53,
1,json,203,
1,Clipboard,19,1

每增加一个代码文件的时候，都要在目录中添加一行信息。这种常用的片段代码个人认为不会特别多，所以手动维护一个这样的目录应该不难。

前面的1和10对应的分别是msoControlButton和msoControlPopup，这个数字可以在立即窗口这样输入查看：

?msoControlButton

这个就是VBA内置定义好了的枚举类型：

caption对应的名称就是保存代码的txt文件：

这里不使用遍历获取文件的目的是，菜单的顺序用习惯了还是不喜欢变动的，如果遍历获取文件，默认是按照字母排序的，可能在更新的时候有变动。

faceID是控件前面的小图标，这个其实无所谓，有兴趣可以写个简单的代码，在菜单上添加控件，设置不同的faceID看看：

Sub TestExcelCMDB()
    Dim cmdb As CommandBarButton
    
    Application.CommandBars("Worksheet Menu Bar").Reset
   
    Dim i As Long
    For i = 1 To 200
        Set cmdb = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlButton, Temporary:=True)
        cmdb.FaceId = i
    Next
End Sub

endflag就是为了标识msoControlPopup的结束。

基本上前期的一些基础就这些了，这里主要做的就是维护好CommandBarDir.txt文件。