1.工具 -> 自定义 -> 工具栏 -> 新建 -> 将生成的工具栏"自定义1"选中 -> 属性 -> 将类型改为"菜单栏"，其"工具栏名称"也可以改为其它名子，点击"关闭"

2.选择 "自定义" 框中的 命令->文件->自定义，将其拖至"自定义1"菜单栏（可反复拖取）->选取"自定义1"菜单栏中的某个菜单，单击右键，选"属性"，可以更改菜单名"标题"，"所在操作"中填宏或function函数（其格式为“=FunctionName()”，注意，“=FunctionName()” 的两个括号不能少）。然后关闭对话框。

3.将所有的菜单都设置完后，再次选取"自定义"对话框中的"自定义1"菜单栏->选"属性"->将其"类型"改为"弹出式"。确定。

4.选取"自定义"->"工具栏"->"快捷菜单"，勾取。可在出现的[快捷菜单]栏中看到"自定义"项，我们定义的快捷菜单就在内。可选取，单击右键，选"属性"，更改其相应的属性。

5.在需要的地方，如下写码：
CommandBars("自定义1").Controls(2).Enabled =True
'定义其某个菜单是否可用。需要时再加。
CommandBars("自定义1").ShowPopup
'弹出快捷菜单 

如果"工具栏名称"为"右键菜单"，则可写为：
CommandBars("右键菜单").Controls(2).Enabled =True
CommandBars("右键菜单").ShowPopup