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()                         'Index属性做索引

Name(自定义命令栏时可读可写)、Index(只读)

 三、使用代码创建命令栏：

　　1、 Commandbar无法用New实例化，创建实例需要使用Commandbars.Add方法 。(想想Workbook是怎么创建的)

Name:指定创建出的Commandbar的Name属性

Position:指定创建出的Commandbar的停靠方式，这个参数同时也可以确定Commandbar类型。

　　2、创建一个msoBarTypeNormal的命令栏（工具栏，开篇图例中的D区域）：

 Sub AddBar()
 Dim bar As CommandBar

 Debug.Print Excel.CommandBars.Count      '查看命令栏初始数量

 Set bar = Excel.CommandBars.ADD          '四个参数均为默认值。第二参数Position默认为msoBarFloating。

 bar.name = "Test"
 bar.NameLocal = "测试"
 bar.Position = msoBarTop                 '重新设置停靠位置(注意，Normal类型的命令栏position不能为msoBarPopup)
 bar.Visible = True

 Debug.Print bar.Index                    '查看自定义命令栏的索引号
 Debug.Print bar.Type                     '查看自定义命令栏的类型
 Debug.Print Excel.CommandBars.Count      '查看添加命令栏后,最新的命令栏数目
 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的值决定了要创建的命令栏的类型。

 Sub AddPopup()
 Dim bar As CommandBar

 Set bar = Excel.CommandBars.ADD(Position:=msoBarPopup)
 bar.ShowPopup ,         '快捷菜单栏的显示位置

 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必须给值，否则后面没办法定义被添加的控件类型。

 Sub AddControls()
 Dim barpop As CommandBarPopup            '使用比CommandBarControl更具体的ComandBarPopup类型
 Dim barbtn As CommandBarButton           '使用比CommandBarControl更具体的ComandBarButton类型

 Set barpop = Excel.CommandBars().Controls.ADD(msoControlPopup)  '在菜单栏上添加一个CommandBarPopup
 barpop.Caption = "我的菜单(&M)"

 Set barbtn = barpop.Controls.ADD(msoControlButton)               '在CommandBarPopup上添加一个按钮

 barbtn.FaceId =                                               '按钮显示的图标
 barbtn.Caption = "测试"                                          '按钮显示的文字
 barbtn.OnAction = "TestOnAction"                                 '按钮点击时关联的方法
 End Sub

 Function TestOnAction()
    MsgBox "触发了回调？"
 End Function

看一下代码执行的效果：

　　　　　　　

五、Commandbar的一些方法的属性。

BuiltIn：判断控件是否内置的

Reset：初始化内置命令栏

Delete：删除控件

　 下面的代码将移除工作簿中所有的自定义菜单和菜单上的控件，并还原内置命令栏。

 Sub RemoveBarAndControl()
 Dim bar As CommandBar
 Dim c As CommandBarControl
     For Each bar In Excel.CommandBars
         For Each c In bar.Controls
             If c.BuiltIn = False Then c.Delete
         Next c
             If bar.BuiltIn = True Then bar.Reset
             If bar.BuiltIn = False Then bar.Delete
     Next bar
 End Sub

     使用代码添加的菜单栏是全局的程序级的，在某个工作簿里写代码创建出的菜单，其他所有工作簿也都会有，什么原理不清楚。