Office VBA教程:CommandBar对象

   
CommandBars (CommandBar)
CommandBarControls (CommandBarControl)
CommandBarButton
CommandBarComboBox
CommandBarPopup

本主题中的某些内容可能不适用于某些语言。

代表容器应用程序中的一个命令栏。CommandBar对象是CommandBars集合中的成员。

使用 CommandBar对象

用 CommandBars(index) 可返回一个 CommandBar对象;此处 index 是该命令栏的名称或索引号。以下示例逐个筛选命令栏集合中的每个成员,以查找命令栏“Forms”。如果找到,那么本示例显示该命令栏并保护其定位状态。在本示例中,变量cb 代表一个 CommandBar对象。


foundFlag = False
For Each cb In CommandBars
    If cb.Name = "Forms" Then
        cb.Protection = msoBarNoChangeDock
        cb.Visible = True
        foundFlag = True
    End If
Next cb
If Not foundFlag Then
    MsgBox "The collection does not contain a Forms command bar."
End If

可用名称或索引号指定位于容器应用程序的有效菜单栏和工具栏列表中的菜单栏或工具栏,但只能用名称指定菜单、快捷菜单或子菜单(所有这些内容均可由 CommandBar对象表示)。本示例可实现:在“工具”菜单底部添加一个新的菜单项。单击该菜单项将运行过程“qtrReport”。


Set newItem = CommandBars("Tools").Controls.Add(Type:=msoControlButton)
With newItem
    .BeginGroup = True
    .Caption = "Make Report"
    .FaceID = 0
    .OnAction = "qtrReport"
End With

如果两个或两个以上的自定义菜单或子菜单具有相同的名称,那么 CommandBars(index) 返回第一个具有该名称的菜单。为确保返回正确的菜单或子菜单,可找到显示该菜单的弹出式控件,然后对该弹出式控件应用CommandBar属性以返回代表该菜单的命令栏。

假定工具栏“Custom Tools”中第三个控件是一个弹出式控件,本示例可将 Save 命令添加到该菜单的底部。


Set viewMenu = CommandBars("Custom Tools").Controls(3)
viewMenu.Controls.Add ID:=3    'ID of Save command is 3

上页:Office VBA教程:COMAddIns集合对象 下页:Office VBA教程:CommandBarButton对象

Office VBA教程:CommandBar对象

Office VBA教程:CommandBarButton对象 Office VBA教程:CommandBarComboBox对象
Office VBA教程:CommandBarControl对象 Office VBA教程:CommandBarControls集合对象
Office VBA教程:CommandBarPopup对象 Office VBA教程:CommandBars集合对象
Office VBA教程:DocumentProperties集合对象 Office VBA教程:DocumentProperty对象
Office VBA教程:FileDialog对象 Office VBA教程:FileDialogFilter对象
Office VBA教程:FileDialogFilters集合 Office VBA教程:FileDialogSelectedItems集合
Office VBA教程:FileSearch对象 Office VBA教程:FileTypes集合
Office VBA教程:FoundFiles对象 Office VBA教程:HTMLProject对象
Office VBA教程:HTMLProjectItem对象 Office VBA教程:HTMLProjectItems集合对象
Office VBA教程:LanguageSettings对象 Office VBA教程:MsoEnvelope对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号