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
使用代码添加的菜单栏是全局的程序级的,在某个工作簿里写代码创建出的菜单,其他所有工作簿也都会有,什么原理不清楚。
Excel2003命令栏操作的更多相关文章
- Dynamics 365 CE命令栏按钮点击后刷新表单页面方法
微软动态CRM专家罗勇 ,回复326或者20190428可方便获取本文,同时可以在第一间得到我发布的最新博文信息,follow me! Dynamics 365 Customer Engagement ...
- Dynamics CRM命令栏定制基础知识及手动编辑customization.xml实例
关注本人微信和易信公众号: 微软动态CRM专家罗勇 ,回复166或者20151028可方便获取本文,同时可以在第一时间得到我发布的最新的博文信息,follow me! 前面的博文:Dynamics C ...
- 命令行操作svn和git和git
前几天在写代码的时候电脑突然坏掉,老大交代的任务没完成,非常痛恨自己用svn或者git保存代码,相信很多程序员遇到过,硬盘坏掉,存在硬盘中的代码丢失,无法找回的问题,svn和git可谓程序员界的福音, ...
- Oracle手边常用命令及操作语句
Oracle手边常用命令及操作语句 作者:白宁超 时间:2016年3月4日11:24:08 摘要:日常使用oracle数据库过程中,常用脚本命令莫不是用户和密码.表空间.多表联合.执行语句等常规操作. ...
- mysql 命令行操作入门(详细讲解版)
之前分享过多次Mysql主题,今天继续分享mysql命令行入门 1. 那么多mysql客户端工具,为何要分享命令行操作? -快捷.简单.方便 -在没有客户端的情况下怎么办 -如果是mysql未开启 ...
- windows下使用TortoiseGit代替Git命令行操作
windows下使用TortoiseGit代替Git命令行操作 大家在使用svn的时候,都非常喜欢使用小乌龟,也就是TortoiseSVN:那么git也有小乌龟版本,即TortoiseGit. 1.安 ...
- Matlab命令——目录操作(windows&Linux)
Matlab命令——目录操作(windows&Linux) 1. filesep用于返回当前平台的目录分隔符,Windows是反斜杠(\),Linux是斜杠(/).有时此命令结合ispc命令使 ...
- linux快速入门 1.1命令行操作
http://lovesoo.org/linux-command-line-operation.html 1.1命令行操作 目录: <wp_nokeywordlink>Shell简介 &l ...
- MongoDB命令行操作
本文专门介绍MongoDB的命令行操作.其实,这些操作在MongoDB官网提供的Quick Reference上都有,但是英文的,为了方便,这里将其稍微整理下,方便查阅. 这里用来做测试的是远端(10 ...
随机推荐
- Ceph的集群全部换IP
由于要对物理机器要做IP规划,所有物理机统一做到35网段,对于ceph集群来说,是有一定工作量的. 前提条件,ceph集群正常.原来的所有集群在44网段.mon地址是172.17.44.22 在44网 ...
- 用smack+openfire做即时通讯
首发:个人博客 必须说明:smack最新的4.1.1,相对之前版本变化很大,而且资料缺乏,官方文档也不好,所以还是用老版本3.2.2吧.这篇博文中的代码是4.1.1版的,但不推荐用它.用openfir ...
- svn权限控制
http://blog.csdn.net/clever101/article/details/8159105 [groups] #核心层开发组成员 core_dev = lg,zjc #扩展层开发组成 ...
- halcon学习笔记——机器视觉工程应用的开发思路【转】
转自:http://www.cnblogs.com/hanzhaoxin/archive/2013/02/15/2912879.html 机器视觉工程应用主要可划分为硬件和软件两大部分. 硬件:工程应 ...
- maven打包异常
maven打包异常,如图: 问题原因:服务器密码错了.
- HDU 1024:Max Sum Plus Plus(DP)
http://acm.hdu.edu.cn/showproblem.php?pid=1024 Max Sum Plus Plus Problem Description Now I think you ...
- easyui设置界面的高度自适应
单独设置界面中特定region区时,高度自适应失败:设置整个界面时成功.实现代码在script块中,具体代码如下: <%@ Page Language="C#" AutoEv ...
- ACM题目————二叉树的遍历
一.二叉树的后序遍历: 题目描述 给定一颗二叉树,要求输出二叉树的深度以及后序遍历二叉树得到的序列.本题假设二叉树的结点数不超过1000 输入 输 入数据分为多组,第一行是测试数据的组数n,下面的n行 ...
- 【转】MYSQL入门学习之十二:存储过程的基本操作
转载地址:http://www.2cto.com/database/201212/177380.html 存储过程简单来说,就是为以后的使用而保存的一条或多条MySQL语句的集合.可将其视为批文件,虽 ...
- 山东理工大学第七届ACM校赛-LCM的个数 分类: 比赛 2015-06-26 10:37 18人阅读 评论(0) 收藏
LCM的个数 Time Limit: 1000ms Memory limit: 65536K 有疑问?点这里^_^ 题目描述 对于我们来说求两个数的LCM(最小公倍数)是很容易的事,现在我遇到了 ...