Excel_VBA常用技巧_第07章.菜单和工具栏.docVIP

VBA常用技巧代码解析 PAGE PAGE 37 VBA常用技巧 目录 TOC \o 1-4 \h \z \u 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函数创建两个数组用于保存子菜单的名称和图标ID。 第9行代码，在添加菜单项前先使用Reset方法重置菜单栏以免重复添加菜单项。Reset方法重置一个内置控件，恢复该控件原来对应的动作，并将各属性恢复成初始状态，语法如下： expression.Reset 参数expression?是必需的，返回一个命令栏或命令栏控件对象。 第10行代码，使用Add方法在Excel工作表菜单栏中的“帮助”菜单中添加菜单项。Add方法应用于CommandBarControls对象时，新建一个CommandBarControl对象并添加到指定命令栏上的控件集合，语法如下： expression.Add(Type, Id, Parameter, Before, Temporary) 参数expression?是必需的，返回一个CommandBarControls对象，代表命令栏中的所有控件。 参数Type是可选的