如何在vba窗口添加自定义工具栏

首先需要打开VBA编辑器，有三种方法：

第一种：快捷键，Alt+F11

第二种：右键工作簿标签，选择“查看代码”

第三种：点击菜单栏的开发工具，选择Visual Basic选项卡

请点击输入图片描述

请点击输入图片描述

编辑代码，我只写了一个简单的功能：d出“HelloWorld”对话框

请点击输入图片描述

将该Excel保存为加载宏xlam格式，千万不能选错了格式，否则无法加载excel中的宏代码

请点击输入图片描述

加载刚才保存的HelloWrold.xlam。点击文件-选项-加载项，然后点击转到。如图所示

请点击输入图片描述

请点击输入图片描述

把宏文件嵌入excel菜单。点击文件-选项-自定义功能区，在自定义功能区新建选项卡，再新建组，将左侧显示的宏命令添加至新建组内，新建的选项卡和组可以重命名，宏命令可以设置自己的图标

请点击输入图片描述

请点击输入图片描述

点击命令，如图所示

请点击输入图片描述

具体步骤：

1、打开新的电脑上的MicrosoftOffice软件，并新建一个空的文档。

2、在菜单栏中选择“文件”-“选项”-“自定义功能区”，在“自定义功能区”选项卡中，勾选“开发工具”复选框，并单击“确定”按钮。

3、在菜单栏中选择“文件”-“选项”-“信任中心”，在“信任中心”选项卡中，单击“信任中心设置”按钮，在“信任中心设置”对话框中选择“宏设置”，勾选“启用所有宏”选项，并单击“确定”按钮。

4、在菜单栏中选择“开发工具”-“VisualBasic”选项，打开VBA编辑器。

5、在VBA编辑器中，单击“文件”-“导入文件”选项，选择之前导出并保存的VBA程序文件，导入VBA程序。

6、在VBA编辑器中，单击“文件”-“导入/导出”选项，选择之前导出并保存的自定义工具文件，导入自定义工具。

简单代码如下：

With Application.CommandBars(1).Controls("工具(T)").Controls.Add(Type:=msoControlButton, Before:=1, temporary:=True)

   .Caption = "自定义菜单"

   .OnAction = "对应功能的宏的名称"

End With

运行后效果如下：

---