VBA在Excel中的插件制作

VBA在Excel中的插件制作

步骤1：

在Excel工具栏的开发工具中启动Visual Basic，进入宏编辑页面如图1：

在VBA Project中右键插入模块，命名为自定义功能区，写好的VBA代码就可以写入右边的白色框框中。

步骤2：

再插入一个模块，命名为回调，用来调用功能区中的命令，格式如下：

Sub ts(control As IRibbonControl)

If control.ID = "but1" Then

Call 插入批注图片

ElseIf control.ID = "but2" Then

Call 匹配图片

……

……

……

End If

End Sub

开始和结束语不变，中间的写入格式ElseIf control.ID = "but2" Then  Call 匹配图片，有多少个命令就需要多少个but回调按钮，call后面连接的功能名跟自定义功能区里面的功能名称需要一致，不然回调不成功。

步骤3：

写好自定义功能区和回调内容后关闭Excel文件，单击Excel文件右键，用WinRAR压缩文件打开，其中有一个文件名为customUI的文件，打开后，用记事本打开customUI.xml文件，写入代码：

 

写完后保存，关闭

步骤4：

重新用Excel打开刚才的文件，另存为Excel加载宏（*.xlam）文件，保存路径会默认的。

然后再Excel工具栏中的开发工具中的Excel加载项中可以看到刚刚保存的文件，将前面的空格中打钩即可启用。在后续的Excel打开文件中即可看到命名为XXJ的工具栏。

步骤5：

也可以添加启功功能，前提是在自定义功能区中有启功的命令。打开Excel的其他命名，在此下拉框中选择宏，将宏下面的启动项选入右边的框框中，启动项的图标可以自主设计，如√即可

备注：做好的插件文档见幸福生活群中的XXJ7.1.xlsm  图标见excel内置图标.xlsm

转载于:https://www.cnblogs.com/wulu80261647/p/7833135.html