微软office系列中VBA脚本开发共用对.docx
《微软office系列中VBA脚本开发共用对.docx》由会员分享，可在线阅读，更多相关《微软office系列中VBA脚本开发共用对.docx（8页珍藏版）》请在冰豆网上搜索。
微软office系列中VBA脚本开发共用对
VBA开发共用对象详解
VBA和其他面向对象的开发语言类似，同样有非常多的对象组成，且不同的Office成员即提供了大量的开发对象，如工具栏、Office助手、内置对话框和窗体等。
（一）工具栏及其控件对象在Ofice中通过VBA开发工具栏和菜单，需使用Office提供的CommandBarCommandBarButton、CommandBarComboBo）等对象，这些对象即代表工具栏、工具栏按钮和工具栏下拉框，通过这些对象可编制出各类复杂的工具栏或菜单。
1.CommandBars集合
该集合代表Office所有的工具栏，可用名称或索引号指定菜单栏或工具栏，但仅可用名称指定一个菜单、快捷菜单或子菜单。
如两个或两个以上自定义菜单或子菜单名称相同，则返回第一个具有该名称的对象。
其Add方法用于新建一个工具栏，并返回CommandBar对象。
语法：
expression.Add（Name,Position,MenuBar,Temporary）
参数说明：
Name为可选的Variant类型，代表新工具栏的名称。
如果省略，则使用默认的名称；Position为可选的Variant类型，代表新工具栏的位置。
该参数值可通过VBA常量进行设置，如msoBarLeft、msoBarTopmsoBarRigh、msoBarBottom常量（设置新工具栏位于软件工具栏中位置）；msoBarFloating常量（代表新工具栏可移动）；msoBarPopup常量（代表新工具栏为快捷菜单）等；MenuBar为可选的Variant类型，用于设置是否用新工具栏替换活动工具栏；Temporary为可选的Variant类型，用于设置新工具栏是否暂时有效。
2.CommandBar对象
该对象代表应用程序中的工具栏，新建工具栏的控件均以该对象为载体。
（1）Controls属性：
返回CommandBarControls对象，代表指定工具栏中的所有控件。
（2）NameLocal属性：
返回由应用程序版本语言所设置的工具栏名称，如对软件的内置工具栏设置会出现错误。
（3）Position属性：
返回或设置工具栏的位置，值可通过VBA常量进行设
置，如msoBarLeft、msoBarTop、msoBarRight、msoBarBottom、msoBarFloatingmsoBarPopup或msoBarMenu等。
⑷Type属性：
返回或设置工具栏的类型，值可通过VBA常量进行设置，如msoBarTypeNormal工具栏为普通类型）、msoBarTypeMenuBar工具栏为菜单类型）、msoBarTypePopup工具栏为弹出菜单类型）等。
（5）Reset方法：
将内置工具栏重置为默认设置，在恢复软件原有工具栏或菜单时非常有用。
重置内置工具栏将删除其中的自定义控件并恢复其内置控件。
3.CommandBarControls集合
该集合代表工具栏中的所有工具栏控件。
其Add方法用于在CommandBarControls集合中增加一个工具栏控件。
4.CommandBarControl对象
该对象代表工具栏控件，对自定义工具栏控件，可使用
CommandBarButton、CommandBarComboBox和CommandBarPopup对象进行定义，而对软件内置的控件进行操作，而该控件又无法使用上述三个对象表示，则可使用CommandBarControl对象。
（1）BeginGroup属性：
用于设置工具栏控件是否分组显示。
（2）Caption属性：
用于设置工具栏控件的标题文字，并可作为默认的控件屏幕提示。
（3）Id属性：
用于设置CommandBarButton、CommandBarComboBox和CommandBarControl对象的功能，这些控件可直接设置为内置工具栏控件的
ID,这样该控件即具备了软件内置的相应功能，自定义控件的ID属性均需设置
为1。
⑷Copy方法：
将工具栏控件复制到已有的工具栏中。
语法：
expression.Copy（Bar,Before）
参数说明：
Bar为可选的Variant类型，代表目标工具栏，如果省略，则控件将复制到自身所在的工具栏；Before为可选的Variant类型，代表新控件在指定工具栏的位置，即新控件将添加至该位置的控件前，如果省略，则控件将复制到工具栏的末尾。
（5）Type属性：
返回工具栏控件的类型，可通过VBA常量进行引用，常用的
工具栏控件类型如下表所示：
常量名称含义
msoControlButton控制按钮
msoControlButtonDropdown带下拉列表的按钮
msoControlButtonPopup带弹出菜单的按钮
msoControlComboBox下拉组合控制框
msoControlDropdown下拉列表控制框
msoControlEdit文本框
msoControlExpandingGrid可扩展的表格
msoControlGraphicCombo图像下拉组合框
msoControlGraphicDropdown图像下拉列表框
msoControlGrid表格
msoControlPopup弹出菜单
5.CommandBarButton对象该对象代表工具栏的按钮控件。
（1）OnAction属性：
返回或设置VisualBasic代码过程名（该代码过程不可使用
参数），该过程将在单击按钮后运行。
（2）Style属性：
返回或设置工具栏按钮的显示方式。
值可通过VBA常量进行
设置，常用的工具栏按钮控件类型如下表所示：
常量名称含义
msoButtonIcon包含图标的按钮
msoButtonCaption包含标题的按钮
ButtonIconandCaption包含图标和标题的按钮
msoButtonIconAndCaptionBelow包含图标和标题，且标题位于底部的按钮msoButtonIconAndWrapCaption包含图标和标题，且标题自动换行的按钮msoButtonWrapCaption包含标题，且标题自动换行的按钮
⑶TooltipText属性：
返回或设置工具栏按钮控件的屏幕提示。
⑷Faceld属
性：
返回或设置工具栏按钮的图标编号，设置工具栏按钮的外观而非其功能，自定义图标的工具栏按钮，其FaceId属性值为0。
（5）CopyFace方法：
将工具栏按钮控件的图标复制到剪贴板。
（6）PasteFace方法：
将剪贴板的图标内容粘贴至工具栏按钮控件。
（7）Execute方法：
运行工具栏控件对应的过程或内置命令。
6.CommandBarComboBox对象
该对象代表工具栏中的组合框控件。
（1）DropDownLines属性：
返回或设置组合框控件的行数，如将其设置为0,
则控件行数将取决于列表的条目数。
（2）List属性：
返回或设置组合框控件中某列表项的值，对内置组合框控件只
读。
（3）0nAction属性：
返回或设置VisualBasic代码过程名（该代码过程不可使用
参数），该过程在单击或更改组合框控件值时运行。
⑷Type属性：
返回或设置组合框控件的显示方式。
（5）AddItem方法：
用于在组合框控件中添加一个列表项，且该组合框控件必须为自定义的控件。
（6）RemoveItem方法：
用于从组合框控件中删除一个列表项。
（2）助手对象
0ffice助手是一组卡通动画人物，这些助手可提供友好的信息提示，并可通过自定义对话框（又称“气球”的）文字格式和控件来实现简单的交互。
I.Assistant对象
该对象代表Ofice助手，可通过Application对象的Assistant属性返回
Assistant对象。
默认助手为大眼夹”即“Clippit，用户可在右键单击助手后出现的快捷菜单中单击选择助手”菜单项，在弹出的“Office助手”对话框中即可选择不同的助手。
（1）Animation属性：
用于返回或设置Office助手的动画效果。
如应用于Balloon对象，则“助手”仅在显示气球时才会出现动作，可通过常量赋值，常用的常量及其含义如下表所示：
常量名称代表的动作
msoAnimationAppear助手出现msoAnimationBeginSpeaking助手开始说话msoAnimationCheckingSomething助手检查动作msoAnimationDisappear助手消失msoAnimationGoodbye助手说“再见”
msoAnimationGreeting助手致欢迎的动作msoAnimationIdle助手休息的动作（为默认动画效果类型）msoAnimationPrinting助手打印的动作msoAnimationSaving助手保存的动作msoAnimationSearching助手开始查找的动作msoAnimationThinking助手考虑的动作
（2）AssistWithAlerts属性：
用于设置助手气球是否发送给应用程序警告信
⑶AssistWithHelp属性：
用于设置当用户按F1键显示帮助时助手是否出现。
⑷AssistWithWizards属性：
用于设置助手是否提供向导型的联机帮助。
（5）FeatureTips属性：
用于设置助手是否更有效地提供有关应用程序功能信
⑹GuessHelp属性：
用于设置助手是否显示帮助主题列表。
（7）FileName属性：
用于设置助手所使用的文件名，助手文件的扩展名为
“acs”一般位于Office的安装目录下。
其中孙悟空”为mnkyking.acs;大眼夹
为Clippit.acs;恋恋”为OffCat.acs;聪聪”为Rocky.acs七巧板”为Logo.acs小灵通”Dot.acs美丽家园”为MNature.acs;“F为F1.acs
（8）NewBalloon属性：
用于新建助手气球，并返回Balloon对象。
（9）On属性：
用于设置是否使用助手。
（10）Sounds属性：
用于设置助手是否发出与动画对应的声音。
（11）TipOfDay属性：
用于设置每次启动Office时，助手是否显示专用的提示。
2.Balloon对象
该对象代表气球，助手可在该气球中显示标题、文字和一些控件，通过
NewBalloon属性可返回Balloon对象，且任意时刻仅有一个气球可视。
（1）BalloonType属性：
用于设置助手所用的气球类型，可通过常量赋值。
创建
Balloon对象时，初始值为msoBalloonTypeButtons常量。
（2）Button属性：
用于设置助手气球底部按钮类型。
创建Balloon对象时，初
始值为msoButtonSetOK。
（3）Icon属性：
用于设置助手气球左上角的图标类型，可通过常量赋值。
（4）Checkboxes属性：
返回BalloonCheckboxes集合，即气球中的所有复选框。
（5）Heading属性：
用于设置助手气球中的标题。
气球标题和文本均支持包含下划线和系统调色板16色的文字。
如需显示包含下划线的文字，可通过“{ul}、”“{ul1}语法”来开始下划线和“{ul0}语法来清除下划线；如需改变文字颜色，可通过“{cfnumber语法，其中
number常数为系统调色板支持的16种颜色。
（6）Labels属性：
返回BalloonLabels集合，即气球中的所有标签。
（7）Mode属性：
用于设置气球的模态，即是否在显示气球的同时允许用户在程序中继续工作。
（8）Text属性：
用于设置助手在气球标签、复选框或直接显示部分的文字。
（9）Close方法：
用于关闭活动的非模态气球，仅在回调过程中才可使用。
（10）Show方法：
用于显示指定的气球对象。
3.BalloonCheckBox对象
该对象代表气球中的复选框控件。
Checked属性：
返回是否已选择气球中的指定复选框。
（3）内置对话框对象Ofice使用了大量的内置对话框，在Word和ExceI中
提供了开发接口，使开发者可充分利用内置对话框实现很多操作，尤其在Word
中可使用多种方法显示内置对话框，实现不同的功能需求，这里，我们以Word
的内置对话框为例进行讲解。
〔.Dialogs集合对象
该集合对象代表Word或ExceI中的Dialog对象集合，其中每个Dialog对象均代表一个内置对话框，无法在Dialogs集合中创建新的内置对话框，也无法添加对话框。
2.Dialog对象
该对象代表内置对话框。
（1）CommandName属性：
用于返回显示指定内置对话框对应的过程名。
⑵DefaultTab属性：
用于设置显示指定对话框时，其被激活的选项卡。
（3）Display方法：
用于显示指定的内置对话框，并直至用户关闭该对话框或超时，使用显示内置对话框时，不会执行任何操作（即仅用于显示），但可返回用
户关闭对话框时所单击的按钮代号。
其中，返回-2，代表“关闭”按钮；返回-1，代表“确定”按钮；返回0，代表“取消”按钮；返回大于0的值，则1代表第一个按钮，2代表第二个按钮，以此类推。
⑷Execute方法：
用于应用内置对话框的当前设置。
（5）Show方法：
用于显示并执行内置对话框，即如同用户通过菜单或工具栏打开对话框，和Display方法相同，均返回用户关闭对话框时所单击的按钮代号。
（6）Update方法：
用于更新内置对话框的参数值。
3.显示内置对话框
通过VBA代码可控制内置对话框的显示，如需调用指定的内置对话框，可
将Dialogs属性通过常量进行赋值，如“Dialogs（wdDialogFileOpen）.Sho可显示Word的打开”对话框。
在前述代码中，如将该语句的返回值赋予Dialog变量，
即可通过该变量返回或设置对话框的选项，代码如下所示：
SettestDialog=Dialogs（wdDialogFileOpen）
合理使用内置对话框可实现很多的功能，Word和ExceI中提供接口的内置
对话框非常多，限于篇幅，本文不做详细介绍，读者可参考VBA的联机帮助。
（4）窗体和相关控件对象
VBA的编辑器和VB非常类似，因此也提供了窗体和相关的控件，但又由于Office的特点使VBA中的窗体、控件和VB存在一些差异。
1.用户窗体知识点窗体是程序实现和用户交互的接口，通过窗体不仅可改善程序的界面友好
性，而且可进一步增强、完善程序的功能。
在VBA编辑器中可创建用户窗体，
在工程资源管理器中右键单击项目，在出现的菜单中选择插入—用户窗体”命
令，随后在设计界面中将显示默认窗体和控件工具箱，该控件工具箱和VB的控
件工具箱很类似，如图3所示。
2.用户窗体常用控件
虽然VBA窗体开发所用的控件和VB较为类似，但其属性和方法和VB存在一定的差异：
（1）标签控件：
该控件用于显示不可编辑的文本，默认属性为Caption属性，
默认事件为Click事件。
（2）文本框控件：
该控件用于显示可编辑的文本信息，是VBA开发中最常用
编辑控件，默认属性为Value属性，默认事件为Change事件。
（3）复合框控件：
该控件将列表框和文本框进行结合，用户可进行输入和列表框选择操作，默认属性为Value属性，默认事件为Change事件。
（4）列表框控件：
该控件用于显示值列表，用户可选择一个或多个列表项，
VBA中的列表框可通过列表形式和选项按钮或复选框的形式使用，默认属性为Value属性，默认事件为Click事件。
（5）复选框控件：
该控件用于显示选择的状态，即允许用户从两个值（如True
或False中选择一个。
如选择则将显示标记，默认属性为Value属性，默认事件为Click事件。
（6）选项按钮控件：
该控件用于显示多选项中每一项的选择状态，默认属性
为Value属性，默认事件为Click事件。
（7）切换按钮控件：
该控件用于显示选择状态，默认属性为Value属性，默
认事件为Click事件。
（8）框架控件：
该控件用于创建功能或视觉角度的控件组，默认事件为Click
事件。
（9）命令按钮控件：
该控件用于启动、结束或中断操作，其Click事件是窗体
编程中最常用的事件代码，默认属性为Value属性，默认事件为Click事件。
（10）表头控件：
该控件用于将一系列相关控件显示为一个多表的集合，默认属性为Selectedltem属性，默认事件为Change事件。
（11）多页控件：
该控件用于将多页面的内容以单个控件的方式实现，在处理
不同类别的大量信息时很有用，默认事件为Change事件。
（12）滚动条控件：
该控件用于按滚动块位置，返回或设置变量值，默认属性为Value属性，默认事件为Change事件。
如需创建横向或纵向的滚动条，可在窗体设计时横向或纵向拖动滚动条控制点。
（13）旋转按钮控件：
该控件用于增加及减少变量数值，默认属性为Value属
性，默认事件为Change事件。
（14）图像控件：
该控件用于显示图片，其支持的图片文件格式包括：
bmp、cur、gif、ico、jpg和wmf等，默认事件为Click事件。
在VBA窗体设计中，可将一些开发中使用的控件全部选择后，直接拖至工具箱中，工具箱会添加一个“控件组”，在窗体设计中可直接将该控件组放置于窗体，大大提高了效率（该特点为VBA所独有）。
如开发者需使用VBA标准控件箱未提供的其他控件，可右键单击工具箱，在出现的菜单中选择“附加控件”命令，在出现的对话框中进行选择即可。
3.用户窗体常用事件
用户窗体的常用事件和VB窗体有一定的区别。
（1）Initialize事件：
该事件发生在加载对象后和显示对象前，通常在该事件中初始化变量值或设置控件的属性。
（2）QueryClose事件：
该事件发生在用户窗体关闭前，通常在该事件中检查用户窗体中未完成的操作。
cancel参数：
整型，如将该参数设置未非零值，则可阻止关闭用户窗体。
Closemode参数：
该参数用于获取触发QueryClose事件的原因。
⑶Terminate事件：
该事件将所有引用的对象变量设置为Nothing常量，即删除对象的引用。
该事件发生在卸载对象后。
如非正常退出程序，则不会触发。
升级会员 