如何为VBA宏程序在EXCEL菜单栏上添加按钮

'主菜单上添加自定义按钮

Sub addbtn()

Set myMenu = Application.CommandBars("worksheet menu bar")

Set Button = myMenu.Controls.Add(Type:=msoControlButton)

Button.Caption = "按钮"'按钮上的文字，填写你需要的

Button.Style = msoButtonIconAndCaption

Button.FaceId = FaceId '按钮图标,数字比如8，系统存在的

Button.OnAction = "OnAction" '按钮执行的宏名，填写你自己编写的宏的宏名

End Sub

1、工具-->自定义-->命令-->新菜单-->将右边的“新菜单”拖到EXCEL菜单上产生菜单（可自命名）

2、将在左边选择“宏”-->右边选择“自定义按钮”拖到“新菜单”下（可自命名)

3、然后指定菜单要运行的vba过程

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

第一种：快捷键，Alt+F11

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

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

请点击输入图片描述

请点击输入图片描述

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

请点击输入图片描述

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

请点击输入图片描述

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

请点击输入图片描述

请点击输入图片描述

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

请点击输入图片描述

请点击输入图片描述

点击命令，如图所示

请点击输入图片描述

---