Excel VBA常用技巧 第07章 菜单和工具栏.doc

VBA常用技巧 目录 VBA常用技巧 1 第7章 菜单和工具栏 2 技巧1 在菜单中添加菜单项 2 技巧2 在菜单栏指定位置添加菜单 5 技巧3 屏蔽和删除工作表菜单 7 技巧4 改变系统菜单的操作 8 技巧5 定制自己的系统菜单 9 技巧6 改变菜单按钮图标 15 技巧7 右键快捷菜单增加菜单项 16 技巧8 自定义右键快捷菜单 17 技巧9 使用右键菜单制作数据有效性 20 技巧10 禁用工作表右键菜单 22 技巧11 创建自定义工具栏 23 技巧12 自定义工具栏按钮图标 26 技巧13 自定义工作簿图标 27 技巧14 移除工作表的最小最大化和关闭按钮 28 技巧15 在工具栏上添加下拉列表框 29 技巧16 屏蔽工作表的复制功能 31 技巧17 禁用工具栏的自定义 32 技巧18 屏蔽所有的命令栏 35 技巧19 恢复Excel的命令栏 36 菜单和工具栏 在菜单中添加菜单项 在Excel工作表的菜单中可以添加新的菜单项和子菜单，如下面的代码所示。 #001 Sub myTools() #002 Dim myTools As CommandBarPopup #003 Dim myCap As Variant #004 Dim myid As Variant #005 Dim i As Byte #006 myCap = Array(基础应用, VBA程序开发, 函数与公式, 图表与图形, 数据透视表) #007 myid = Array(281, 283, 285, 287, 292) #008 With Application.CommandBars(Worksheet menu bar) #009 .Reset #010 Set myTools = .Controls(帮助(H)).Controls.Add(Type:=msoControlPopup, Before:=1) #011 With myTools #012 .Caption = Excel Home 技术论坛 #013 .BeginGroup = True #014 For i = 1 To 5 #015 With .Controls.Add(Type:=msoControlButton) #016 .Caption = myCap(i - 1) #017 .FaceId = myid(i - 1) #018 .OnAction = myC #019 End With #020 Next #021 End With #022 End With #023 Set myTools = Nothing #024 End Sub 代码解析： myTools过程使用Add方法在Excel工作表菜单栏中的“帮助”菜单中添加一个标题为“Excel Home 技术论坛”的菜单项和5个子菜单。 第2行到第5行代码声明变量类型。 第6、7行代码使用Array函数创建数组Reset方法重置菜单栏以免重复添加菜单项。Reset方法重置一个内置控件恢复该控件原来对应的动作，并将各属性恢复成初始状态expression.Reset 参数expression?是必需返回一个对象。CommandBarControls对象新建一个CommandBarControl对象并添加到指定命令栏上的控件集合expression.Add(Type, Id, Parameter, Before, Temporary) 参数expression?是必需返回一个CommandBarControls对象代表栏中的所有控件Type是可选的，添加到指定命令栏的控件类型表格 791所列的MsoControlType常之一常控件类型msoControlButton 1 命令按钮 msoControlEdit 2 文本框msoControlDropdown 3 下拉列表控制框msoControlComboBox 4 下拉组合控制框msoControlPopup 10 弹出式控件 表格 791 MsoControlType常Type设置为弹出式控件。 参数Id是可选。如果该参数为 1或者忽略，将在命令栏中添加一个空的指定类型的自定义控件。 Parameter