excel_vba常用技巧_第07章菜单和工具栏

《excel_vba常用技巧_第07章菜单和工具栏》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA常用技巧代码解析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技巧

2、15在工具栏上添加下拉列表框29技巧16屏蔽工作表的复制功能31技巧17禁用工具栏的自定义32技巧18屏蔽所有的命令栏35技巧19恢复Excel的命令栏3637VBA常用技巧代码解析第7章菜单和工具栏技巧1在菜单中添加菜单项在Excel工作表的菜单中可以添加新的菜单项和子菜单，如下面的代码所示。#001SubmyTools()#002DimmyToolsAsCommandBarPopup#003DimmyCapAsVariant#004DimmyidAsVariant#005DimiAsByte#

3、006myCap=Array("基础应用","VBA程序开发","函数与公式","图表与图形","数据透视表")#007myid=Array(281,283,285,287,292)#008WithApplication.CommandBars("Worksheetmenubar")#009.Reset#010SetmyTools=.Controls("帮助(&H)").Controls.Add(Type:=msoControlPopup,Before:=1)#011WithmyTools#012

4、.Caption="ExcelHome技术论坛"#013.BeginGroup=True#014Fori=1To5#015With.Controls.Add(Type:=msoControlButton)#016.Caption=myCap(i-1)#017.FaceId=myid(i-1)#018.OnAction="myC"#019EndWith#020Next37VBA常用技巧代码解析#021EndWith#022EndWith#023SetmyTools=Nothing#024EndSub

5、代码解析：myTools过程使用Add方法在Excel工作表菜单栏中的“帮助”菜单中添加一个标题为“ExcelHome技术论坛”的菜单项和5个子菜单。第2行到第5行代码声明变量类型。第6、7行代码使用Array函数创建两个数组用于保存子菜单的名称和图标ID。第9行代码，在添加菜单项前先使用Reset方法重置菜单栏以免重复添加菜单项。Reset方法重置一个内置控件，恢复该控件原来对应的动作，并将各属性恢复成初始状态，语法如下：expression.Reset参数expression 是必需的，返回一

6、个命令栏或命令栏控件对象。第10行代码，使用Add方法在Excel工作表菜单栏中的“帮助”菜单中添加菜单项。Add方法应用于CommandBarControls对象时，新建一个CommandBarControl对象并添加到指定命令栏上的控件集合，语法如下：expression.Add(Type,Id,Parameter,Before,Temporary)参数expression 是必需的，返回一个CommandBarControls对象，代表命令栏中的所有控件。参数Type是可选的，添加到指定命令

7、栏的控件类型，可以为表格11所列的MsoControlType常数之一。常数值控件类型msoControlButton1命令按钮msoControlEdit2文本框msoControlDropdown3下拉列表控制框msoControlComboBox4下拉组合控制框msoControlPopup10弹出式控件表格11MsoControlType常数因为在本例中将添加的是带有子菜单的菜单项，所以将参数Type设置为弹出式控件。参数Id是可选的，标识整数。如果将该参数设置为1或者忽略，将在命令栏

8、中添加一个空的指定类型的自定义控件。参数Parameter是可选的，37VBA常用技巧代码解析对于内置控件，该参数用于容器应用程序运行命令。对于自定义控件，可以使用该参数向VisualBasic过程传递信息，或用其存储控件信息。参数Before是可选的，表示新控件在命令栏上位置的数字。新控件将插入到该位置控件之前。如果忽略该参数，控件将添加到指定命令栏的末端。本例中将Before参数设置为1，菜单项添加到“帮助”菜单的顶端。参数Temporary是可选的。设置为True将使添加的菜