vba制作excel菜单 vba制作excel菜单嵌入的方法详解

1、首先需要打开VBA编辑器。

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

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

4、加载刚才保存的HelloWrold.xlam。点击文件-选项-加载项，然后点击转到。

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

6、点击命令，完成。

Dim

myMenuBar

Dim

newMenu

Dim

ctrl1

Dim

s

Dim

flag

As

String

'初始化菜单

Set

myMenuBar

=

CommandBars.ActiveMenuBar

Set

newMenu

=

myMenuBar.Controls.Add(Type:=msoControlPopup,

_

Temporary:=True)

newMenu.Caption

=

"电子印章"

Set

ctrl1

=

newMenu.Controls.Add(Type:=msoControlButton,

ID:=1)

ctrl1.Caption

=

"添加电子印章"

ctrl1.Style

=

msoButtonCaption

ctrl1.OnAction

=

"AddSeal"

Set

ctrl1

=

newMenu.Controls.Add(Type:=msoControlButton,

ID:=1)

ctrl1.Caption

=

"验证电子印章"

ctrl1.Style

=

msoButtonCaption

ctrl1.OnAction

=

"CheckSeal"

ctrl1.Style

=

msoButtonCaption

Set

ctrl1

=

newMenu.Controls.Add(Type:=msoControlButton,

ID:=1)

ctrl1.Caption

=

"关于"

ctrl1.OnAction

=

"About"

ctrl1.Style

=

msoButtonCaption

---