(9)自定义菜单和自定义工具栏参考

自定义菜单栏

Application.CommandBars.AddName:="菜单名称",Temporary:=True

Application.CommandBars("菜单名称").Visible=True

Application.CommandBars("菜单名称").Delete

For Each bar In Application.CommandBars

If bar.BuiltIn=FalseThen

MsgBox本工作簿创建了自定义工具栏，其名称为：&bar.Name

End If

Next

显示菜单栏

Application.CommandBars(x).Enabled=True

Application.CommandBars(x).Visible=True

Application.CommandBars(x).Reset

值n为：

1WorksheetMenuBar

2ChartMenuBar

3Standard

4Formatting

5PivotTable

6Chart

7Reviewing

8Forms

10ExternalData

11FormulaAuditing

12FullScreen

14VisualBasic

15Web

16ControlToolbox

19WatchWindow

21Borders

22Protection

24List

26Drawing

69WordArt

70Picture

74OrganizationChart

设置菜单命令

With Application.CommandBars(x).Controls.Add(Type:=msoControlButton,Before:=y)

.Caption="命令名称"

.OnAction="宏名"

End With

x为：

data

tools

cell

Application.CommandBars(x).Controls(y).Enabled=False/True

Application.CommandBars(x).Controls(y).Delete

Application.CommandBars(x).Controls(y).Reset

设置菜单命令控件

With Application.CommandBars(x).Controls(y).Controls(z)

.BeginGroup=True/False

.Execute

.Enabled=False/True

.Delete

.Reset

End With

设置子菜单

Application.CommandBars(x).Controls(y).Controls.Add(Type:=msoControlPopup,Before:=z).Caption="命令名称"

With CommandBars(x).Controls(y).Controls(z)

.Controls.Add(Type:=msoControlButton,Before:=1).Caption="命令名称"

.Controls("命令名称").OnAction="宏名"

End With

With Application.CommandBars(x).Controls(y).Controls(z).Controls(z1)

.Enabled=False/True

.Delete

.Reset

End With

设置快捷菜单

Setmybar=CommandBars.Add(Name:="名称",Position:=msoBarPopup,temporary:=True)

SetmyItem=mybar.Controls.Add(Type:=msoControlButton,ID:=i)

Application.CommandBars("名称").ShowPopup

Cancel=True

i为：

文件编辑视图

18新建(&N)...128撤消723普通(&N)

23打开(&O)?37重复清除(&R)724分页预览(&P)

106关闭(&C)21剪切(&T)5746任务窗格(&K)

3保存(&S)19复制(&C)30045工具栏(&T)

748另存为(&A)...809Office剪贴板(&B)849编辑栏(&F)

3823另存为网页(&G)...22粘贴(&P)850状态栏(&S)

846保存工作区(&W)...755选择性粘贴(&S)...762页眉和页脚(&H)...

5905文件搜索(&H)...2787粘贴为超链接(&H)1594批注(&C)

7994权限(&M)...30020填充(&I)950视图管理器(&V)...

3655网页预览(&B)30021清除(&A)178全屏显示(&U)

247页面设置(&U)...478删除(&D)...925显示比例(&Z)...

30255打印区域(&T)847删除工作表(&L)

109打印预览(&V)848移动或复制工作表(&M)...

4打印(&P)...1849查找(&F)...

30095发送(&D)313替换(&E)...

750属性(&I)757定位(&G)...

752退出(&X)759链接(&K)...

961对象(&O)

插入工具数据

295单元格(&E)...2拼写检查(&S)...928排序(&S)...

296行(&R)7343信息检索(&R)...30031筛选(&F)

297列(&C)6122错误检查(&K)...860记录单(&O)...

852工作表(&W)31155语音(&H)861分类汇总(&B)...

1957图表(&H)...7710共享工作区(&D)...2034有效性(&L)...

308符号(&S)...2040共享工作簿(&B)...862模拟运算表(&T)...

1特殊符号(&Y)...30138修订(&T)806分列(&E)...

509分页符(&B)2044比较和合并工作簿(&W)...863合并计算(&N)?

385函数(&F)...30029保护(&P)30032组及分级显示(&G)

30023名称(&N)30468联机协作(&N)2915数据透视表和数据透视图(&P)...

1589批注(&M)856单变量求解(&G)...30101导入外部数据(&D)

30180图片(&P)857方案(&E)...31276列表(&I)

1032图示(&G)...30028公式审核(&U)31268XML(&X)

546对象(&O)...30017宏(&M)459刷新数据(&R)

1576超链接(&I)...943加载宏(&I)...

793自动更正选项(&A)...

797自定义(&C)...

522选项(&O)...

窗口格式

303新建窗口(&N)855单元格(&E)...

298重排窗口(&A)...30024行(&R)

7698并排比较(&B)30025列(&C)

865隐藏(&H)30026工作表(&H)

866取消隐藏(&U)..786自动套用格式(&A)...

302拆分(&S)3058条件格式(&D)...

443冻结窗格(&F)254样式(&S)...

30136拼音指南(&T)

禁用快捷菜单

For Each myBar In CommandBars

If myBar.Type=msoBarTypePopup Then

myBar.Enabled=False

End If

Next

快捷键设置

Application.OnKeyx,

x为：

{BACKSPACE}or{BS}

{BREAK}

{CAPSLOCK}

{CLEAR}

{DELETE}或{DEL}

{END}

~（波形符）

{ENTER}

{ESCAPE}或{ESC}

{F1}到{F15}

{HELP}

{HOME}

{INSERT}

{NUMLOCK}

{PGDN}

{PGUP}

{RETURN}

{SCROLLLOCK}

{TAB}

{UP}

{DOWN}

{RIGHT}

{LEFT}

^（插入符号）

%（百分号）

Application.OnKeyx

Application.OnKeyx,宏名

单击键盘 Application.SendKeysx

设置右键菜单

With Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton,Before/after:=n)

.FaceId="图标代号"

.Caption="显示名称"

.OnAction="宏名"

End With

Application.CommandBars("Cell").Reset

Application.CommandBars("cell").Enabled=True/False

禁止键盘鼠标输入

Application.Interactive=False

菜单栏显示工作表标签

Application.CommandBars("WorkBookTabs").ShowPopupX:=50,Y:=120