excel_vba_编程教程(完整版)-第76章

按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！


mandBars。Add（Name；　Position；　MenuBar；　Temporary）　　　
可选参数Name是你想要分配给你的新命令条的名称，如果你不明确该名称，VB会分配一个普通名称，　
例如“自定义　1”。Position参数决定新命令条将出现在屏幕的哪里（参见表12…2）。　　
表12…2　mandBar对象的位置常量　　
位置常量　　　　　　　　　　　　　索引　　　　　　　　　　　描述　　
msoBarLeft　　　　　　　　　　　0　　　　　　　　　　　　　　命令栏位于应用程序窗口的左边　　
msoBarRight　　　　　　　　　　2　　　　　　　　　　　　　　命令栏位于应用程序窗口的右边　　
msoBarTop　　　　　　　　　　　　1　　　　　　　　　　　　　　命令栏位于应用程序窗口的上面　　
msoBarBottom　　　　　　　　　3　　　　　　　　　　　　　　命令栏位于应用程序窗口的底部　　
msoBarFloating　　　　　　　4　　　　　　　　　　　　　　命令栏浮在屏幕上　　
msoBarPopup　　　　　　　　　　5　　　　　　　　　　　　　　快捷菜单　　
msoBarMenuBar　　　　　　　　6　　　　　　　　　　　　　　命令栏取代系统菜单（仅用于Macintosh）　　
　　
参数MenuBar是个逻辑值（True或False），它决定新命令条是否取代活动菜单条。如果你想要取代　
活动菜单条的话，就输入True，否则使用False。参数Temporary是逻辑值（True或False），决定何　
时删除命令条。使用True，当Excel程序关闭的时候命令条就会自动删除。使用False的话，当你退　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　233　

…　页面　250…

出该程序的时候，该工具栏不会被删除。　　
你可以在立即窗口里试验创建工具栏。　　
1。　　在立即窗口里面输入下述语句，注意要将完整的语句书写在一行：　　
　　　　set　newToolbar　=　mandBars。Add（〃Budget　Plans〃；　msoBarRight；　False；　True）　　　
　　　　当你按下回车键时，VB就会在集合mandBars里面添加一个新的工具栏，具体名称为“Budget　　
　　　　Plans”。切换到Excel应用软件窗口并且选择“视图”｜“工具栏”，你可以看到Excel显示的一　
　　　　列可用工具栏清单，包括你刚才创建的那个（参见图12…2）。　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
图12…2　你在Excel内置工具栏清单里面添加了一个自定义工具栏　　
2。　　切换回VB编辑器窗口，并在立即窗口里输入下述语句：　　
　　　　mandBars（〃Budget　Plans〃）。Visible　=　True　　
　　　　切换到Excel应用程序窗口查看该工具栏，工具栏“Budget　Plans”出现在垂直滚动条的右边。　
　　　　还记得你创建该工具栏的时候吗？你使用的是常量msoBarRight来决定其位置。　　
3。　　现在关闭Excel应用软件，重新打开它并且查看工具栏Budget　Plans是否依然出现在应用软件　
　　　　窗口的右边。　　
　　　　因为你在Add方法最后一个参数的位置使用了逻辑值True，工具栏Budget　Plans应该已经不在　
　　　　了。　　
有个好主意，在你试图创建新工具栏之前，需要检查某个特定名称的工具栏是否已经存在于集合　
mandBars里了。下述过程将创建工具栏“Budget　Plans”，倘若不存在具有该相同名称的工具栏　
的话。在工程CustomTools　（Chap12。xls）的代码窗口里面输入该过程，并且运行两次。第二次执行　
该过程的时候，你将看到一信息，提醒你已经有了这样一个工具栏。　　
Sub　MakeToolBar（）　　　
　　　　　Dim　bar　As　mandBar　　　
　　　　　Dim　flagExists　As　Boolean　　　
　　　　　flagExists　=　False　　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　234　

…　页面　251…

　　　　　For　Each　bar　In　mandBars　　　
　　　　　　　　　　If　bar。Name　=　〃Budget　Plans〃　Then　　　
　　　　　　　　　　　　　　flagExists　=　True　　　
　　　　　　　　　　　　　　MsgBox　〃The　toolbar　with　this　name　already　exists。〃　　　
　　　　　　　　　　　　　　Exit　For　　　
　　　　　　　　　End　If　　　
　　　　　Next　bar　　　
　　　　　If　Not　flagExists　Then　　　
　　　　　　　　　Set　bar　=　mandBars。Add（〃Budget　Plans〃；　_　　　
　　　　　　　　　　　msoBarBottom；　False；　True）　　　
　　　　　　　　　mandBars（〃Budget　Plans〃）。Visible　=　True　　　
　　　　　End　If　　　
　　　　　Set　bar　=　Nothing　　　
End　Sub　　　

3。删除自定义工具栏　　

如果你创建了工具栏但不想保留它，那么你可以去掉它而不用关闭Excel应用软件，只要使用Delete　
方法就可以了。例如要删除工具栏“Budget　Plans”，你可以在立即窗口里输入下述语句：　　
mandBars（〃Budget　Plans〃）。Delete　　　
注意，你不能删除内置工具栏。　　

4。使用　mandBar　的属性　　

对象mandBar有许多属性，你在立即窗口里面使用它们中的一些。　　
1。　　使用立即窗口来创建一个叫“My　Reports”的工具栏：　　
　　　　set　myBar=　mandBars。Add（〃My　Reports〃；　msoBarBottom；　False）　　　
2。　　使用下述语句来确定某个工具栏是否是内置的：　　
　　　　？mandBars（〃My　Reports〃）。BuiltIn　　　
3。　　输入下述语句可以确定新工具栏在mandBars集合里的索引号：　　
　　　　？mandBars（〃My　Reports〃）。Index　　　
当设置属性Visible为True时，该工具栏将显示在屏幕上；而设置属性Visible为False时则可以隐　
藏该工具栏。　　

5。使用　mandBar　控件　　

一个空的工具栏并不能做什么，要让你的工具栏有用的话，你就需要将想要地控件放置在上面并且　
给它们指定适当的VBA过程。有三种类型的命令条控件，如下表所示：　　
表12…3：可以放置在工具栏上的控件类型　　
对象名称　　　　　　　　　　　　　　　描述　　
mandBarButton　　　　　　　该对象代表工具栏按钮和菜单选项。当你点击按钮或者选择菜单选项时，　
　　　　　　　　　　　　　　　　　　　　　　　就会执行相应的VBA过程　　
mandBarPopup　　　　　　　　该对象代表弹出控件，点击时显示一菜单或者子菜单　　
mandBarboBox　　　　　该对象代表文本框、列表框或者下拉列表框（例如，格式工具栏上的字　
　　　　　　　　　　　　　　　　　　　　　　　体和字号控件，或者常用工具栏上的缩放控件）　　
　　
mandBar对象的一个重要属性是Controls属性，该属性返回某特定工具栏上所有控件的集合。　　
1。　　在立即窗口里敲入下述语句：　　
　　　　？mandBars（1）ntrols。　Count　　　
　　　　当你按下回车键时，VB就会返回工作表系统菜单条上所有可用控件的总数。　　
2。　　输入下述语句来返回工作表系统菜单条上第一个控件的名称：　　
　　　　？mandBars（1）ntrols（1）。Caption　　　
　　　　VB返回第一个控件的名称：&File。字母F前面的字符&表明该菜单选项可以通过键盘按下Alt＋F　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　235　

…　页面　252…

来执行。　　
3。　　输入下面的语句来执行一特定选项：　　
　　　　mandBars（1）ntrols（1）。Execute　　　
　　　　方法Execute激活该特定的控件，文件菜单应该被打开了。　　
4。　　在当前工程代码窗口里输入过程ControlList，来将活动菜单条上所有控件的名称写入立即窗　
　　　　口：　　
　　　　　Sub　ControlList（）　　　
　　　　　　　Dim　bar　As　mandBar　　　
　　　　　　　Dim　ctrl　As　mandBarControl　　　
　　　　　　　Set　bar　=　mandBars（1）　　　
　　　　　　　Debug。Print　bar。Name　&　〃：　〃　&　barntrolsunt　　　
　　　　　　　For　Each　ctrl　In　barntrols　　　
　　　　　　　　　　　Debug。Print　ctrl。Caption　　　
　　　　　　　Next　　　
　　　　　End　Sub　　　
5。　　运行上述过程后，查看立即窗口，你将看到下述清单：　　
　　　　　Worksheet　Menu　Bar：　10　　　
　　　　　&File　　　
　　　　　&Edit　　　
　　　　　&View　　　
　　　　　&Insert　　　
　　　　　F&ormat　　　
　　　　　&Tools　　　
　　　　　&Data　　　
　　　　　A&ction　　　
　　　　　&Window　　　
　　　　　&Help　　
为mandBar添加控件　　
要运行期望的VBA过程的话，那么你可以添加一个内置的或者自定义控件到内置工具栏。如果你更　
愿意，你也可以添加控件到自定义工具栏。无论你是添加内置控件还是自定义控件，到内置工具栏　
或者到自定义工具栏，总是要使用Add方法，语法如下：　　
mandBarntrols。Add（Type；　Id；　Parameter；　Before；　Temporary）　　　
mandBar是你要添加控件的那个对象。　　
Type是一常量，决定你添加的自定义控件的类型，你可以从下述类型中选择一个：　　
msoControlButton　　　　　　　　1　　　
msoControlPopup　　　　　10　　　
msoControlEdit　　　　　　2　　　
msoControlDropDown　　3　　　
msoControlboBox　　4　　
Id是个整数，指定你想要添加的内置控件编号。　　
Parameter用来给VB过程发送信息，或者储存关于该控件的信息。　　
Before参数是新控件添加在之前的那个控件的索引号，如果忽略，那么VB将在该命令条的结尾处添　
加控件。　　
Temporart参数是个逻辑值（True或False），决定控件什么时候被删除。设置该参数为True的话，将　
导致应用软件关闭时，该控件将自动被删除。　　
1。　　在代码窗口里输入过程AddBarAndControls，如下所示：　　
　　　　　Sub　AddBarAndControls（　）　　　
　　　　　　　　　With　ApplicationmandBars。Add（〃Test〃；　；　False；　True）　　　
　　　　　　　　　　　　　　。Visible　=　True　　　
　　　　　　　　　　　　　　。Position　=　msoBarBottom　　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　236　

…　页面　253…

　　　　　　　　　　　　　　With　ntrols。Add（msoControlButton）　　　
　　　　　　　　　　　　　　　　　　　。Caption　=　〃List　of　Controls〃　　　
　　　　　　　　　　　　　　　　　　　。FaceId　=　4　　　
　　　　　　　　　　　　　　　　　　　。OnAction　=　〃ControlList〃　　　
　　　　　　　　　　　　　　End　With　　　
　　　　　　　　　End　With　　　
　　　　　End　Sub　　
该过程创建了一个名为Test的新工具栏，并将它放在应用软件窗口的底部。接下来，Add方法在其　
上放置一个名为List　of　Controls的按钮，并用打印机图标以识别。当用户点击该按钮时，之前已　
准备好的过程ControlList就会被执行。　　

6。理解和使用控件属性　　

放置在工具栏上的控件有许多属性可供你读取或者设置。要知道某个控件是内置的或者自定义的　
话，那么你可以使用属性BuiltIn，如果返回值为True，那么该控件就是内置控件；所有用户定义　
的控件将返回值False。如果Enabled属性的值为True，那么该控件就是活动的，并且可以对鼠标点　
击作出反应。非活动控件的Enabled属性被设置为False了。不用说，所有控件拥有属性Caption，　
可以用来确定或者设置控件标题。　　
以mandBarboBox对象为代表的组合类型的控件具有一些特殊的属性，例如DropDownLines，　
DropDownWidth，List，ListCount，ListIndex以及Text。参见表12…4对这些属性的解释。　　
表12…4　对象mandBarboBox选取的属性　　
属性　　　　　　　　　　　　　　　　　　描述　　
DropDownLines　　　　　　　　　返回或者设置当用户点击组合框下拉箭头时，显示的项目数量　　
DropDownWidth　　　　　　　　　返回或者设置组合框控件的宽度，以像素为单位　　
List（