Excel2003命令栏操作
Excel2003个人觉得应该把它抛掉不管了，但还是没忍住想看下它里面的东东。
一、先列出一些重要对象
Commandbars：命令栏集合 Commandbar：命令栏
CommandbarControls：命令栏上的控件集合 CommandbarControl：命令栏上的控件
二、Commandbar（命令栏）
Commandbars和Commandbar的关系可以类比Workbooks和Workbook
下图A\B\C\D\E都是命令栏。其中D是代码自定义创建的(空的没有添加任何控件上去)，其它是内置的。
可特别记住A\D两个区域，后文演示D的创建过程以及在A区域添加一个按钮，实现一个简单功能。
1、有三种命令栏，Type是MsoBarType枚举值:
msoBarTypeMenuBar(1-菜单栏)
msoBarTypeNormal(0-默认菜单栏、工具栏)
msoBarTypePopup(2-快捷菜单)
小技巧：枚举不容易拼写，可借用VBE的智能提示，利用判等语句得到三种类型的拼写，然后复制到需要使用的地方。
(Type属性是只读的，赋值语句无法获取智能提示)
在开篇例图中：A-菜单栏mSOBarTypeMenuBar B\C\D\E-默认菜单栏msoTypeNormal
2、命令栏的属性Position（在工作簿中显示的位置,停靠方式）也是枚举类型：
A\B\C\D的默认位置都是msoBarTop(紧靠工作簿上方)。命令栏的位置可以拖动，E的位置就是鼠标拖动到该位置的。
3、可以使用索引拿到Commandbar对象。下面两句代码都指的是同一个Commandbar，即开篇图例中的A。
Debug.Print CommandBars("Worksheet Menu Bar") 'Name属生做索引 Debug.Print CommandBars(1) 'Index属性做索引
Name(自定义命令栏时可读可写)、Index(只读)
三、使用代码创建命令栏：
1、 Commandbar无法用New实例化，创建实例需要使用Commandbars.Add方法 。(想想Workbook是怎么创建的)
Name:指定创建出的Commandbar的Name属性
Position:指定创建出的Commandbar的停靠方式，这个参数同时也可以确定Commandbar类型。
2、创建一个msoBarTypeNormal的命令栏（工具栏，开篇图例中的D区域）：
1 Sub AddBar() 2 Dim bar As CommandBar 3 4 Debug.Print Excel.CommandBars.Count '查看命令栏初始数量 5 6 Set bar = Excel.CommandBars.ADD '四个参数均为默认值。第二参数Position默认为msoBarFloating。
7 bar.name = "Test" 8 bar.NameLocal = "测试" 9 bar.Position = msoBarTop '重新设置停靠位置(注意，Normal类型的命令栏position不能为msoBarPopup) 10 bar.Visible = True 11 12 Debug.Print bar.Index '查看自定义命令栏的索引号 13 Debug.Print bar.Type '查看自定义命令栏的类型 14 Debug.Print Excel.CommandBars.Count '查看添加命令栏后,最新的命令栏数目 15 End Sub
a、Position属性确定了命令栏的类型。（而不是由Type确定,Type是只读的）
msoBarTop、msoBarBottom、msoBarLeft、msoBarRight、msoBarFloating(默认值)时，创建的都是“工具栏”。
msoBarPopup时，创建的是“快捷命令栏”。
msoBarMenuBar时，创建的是“菜单栏”(只有苹果操作系统可以创建菜单栏)
b、Type（类型）、Index（索引）属性都是只读的。
c、工具栏初始化完成后，不要忘了Visible=true。否则命令栏默认不会显示
d、这个命令栏是个空壳，没有添加任何控件到上面。
3、创建msoBarTypePopup快捷命令栏
Position不能使用默认的msoBarFloating。需明确指定为:msoBarPopup。Postiion的值决定了要创建的命令栏的类型。
1 Sub AddPopup() 2 Dim bar As CommandBar 3 4 Set bar = Excel.CommandBars.ADD(Position:=msoBarPopup) 5 bar.ShowPopup 100, 100 '快捷菜单栏的显示位置 6 7 End Sub
a、快捷命令栏有一个专有的ShowPopup方法，可以指定命令栏的显示位置而不是停靠。（msoBarFloating可以理解为一种停靠方式）
b、创建快捷命令栏，必须在Add的参数中明确指定msoBarPopup。命令栏为msoBarTypeNormal时无法设置 Position为msoBarPopup。
c、这个快捷菜单也是个空壳，还没有任何控件在上面。
d、很多VBA爱好者把工作表事件和快捷菜单结合，制作类似鼠标右键菜单效果的命令栏。（外号弹出式菜单）
四、给Commandbar添加控件
1、添加方法：Commandbars(index).Controls.add，该方法有五个可选参数，第一参数Type指定要添加的控件类型。返回值类型是CommandbarControl
2、CommandbarControl(命令栏可容纳的控件)的Type
CommandbarControl的Type属性是枚举类型(在2003中有26种类型，截图不能完全显示)：
虽然有26种类型，但实际可用对象模型创建的只有几种，分别是（最常用的两种标记为黑体）：
msoControlButton(命令按钮)、msoControlPopup(弹出框)
msoControlEdit、msoControlDropdown、msoControlComboBox和msoControlActiveX
3、在菜单栏(篇头图例中的A区域)添加自定义按钮：
CommandbarControl的Type属性是只读的。这意味着，使用Controls.add方法时，第一参数Type必须给值，否则后面没办法定义被添加的控件类型。
1 Sub AddControls() 2 Dim barpop As CommandBarPopup '使用比CommandBarControl更具体的ComandBarPopup类型 3 Dim barbtn As CommandBarButton '使用比CommandBarControl更具体的ComandBarButton类型 4 5 Set barpop = Excel.CommandBars(1).Controls.ADD(msoControlPopup) '在菜单栏上添加一个CommandBarPopup 6 barpop.Caption = "我的菜单(&M)" 7 8 Set barbtn = barpop.Controls.ADD(msoControlButton) '在CommandBarPopup上添加一个按钮 9 10 barbtn.FaceId = 263 '按钮显示的图标 11 barbtn.Caption = "测试" '按钮显示的文字 12 barbtn.OnAction = "TestOnAction" '按钮点击时关联的方法 13 End Sub 14 15 Function TestOnAction() 16 MsgBox "触发了回调？" 17 End Function
看一下代码执行的效果：
五、Commandbar的一些方法的属性。
BuiltIn：判断控件是否内置的
Reset：初始化内置命令栏
Delete：删除控件
下面的代码将移除工作簿中所有的自定义菜单和菜单上的控件，并还原内置命令栏。
1 Sub RemoveBarAndControl() 2 Dim bar As CommandBar 3 Dim c As CommandBarControl 4 For Each bar In Excel.CommandBars 5 For Each c In bar.Controls 6 If c.BuiltIn = False Then c.Delete 7 Next c 8 If bar.BuiltIn = True Then bar.Reset 9 If bar.BuiltIn = False Then bar.Delete 10 Next bar 11 End Sub
使用代码添加的菜单栏是全局的程序级的，在某个工作簿里写代码创建出的菜单，其他所有工作簿也都会有，什么原理不清楚。
