若要返回的 CommandBar 控件的 ID 的示例宏

文章翻译 文章翻译
文章编号: 162814 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

概要

CommandBar 对象 Id 属性为每个内置菜单栏、 快捷菜单栏、 子菜单、 菜单项或工具栏中使用一个唯一的编号。当引用一个命令栏上的控件 Id 是通常所需的。Visual Basic,为应用程序在这篇文章中的宏示例返回各种 Commandbar 控件的 Id。

更多信息

有关更多的信息请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
159466XL97: 列表的内置命令栏控件的 ID 号

Microsoft 提供的编程示例只,用于说明不附带任何明示或暗示保证。这包括,但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用的编程语言以及用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能,但他们不会修改这些示例以提供额外的功能或构建过程来满足您的具体要求。

在菜单栏上的菜单

下面的宏示例返回 工具 菜单的内置-在图表菜单栏中的 Id:
   Sub File_Id

      Dim x as Object
      set x = CommandBars("Chart Menu Bar").Controls("Tools")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				

菜单上的菜单命令

下面的宏示例返回在 文件 菜单的内置的工作表菜单栏上的的退出命令的 Id:
   Sub FileExit_Id()

      Dim x as Object
      set x = CommandBars("Worksheet Menu Bar").Controls("File") _
      .Controls("Exit")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				

在快捷菜单中的子菜单上的命令

下面的宏示例返回在数据透视表的 公式 子菜单上的计算项命令 Id 在快捷菜单栏:
   Sub SubMenu_Command_Id()

      Dim x as Object
      set x = CommandBars("PivotTable Context Menu").Controls("Formulas") _
      .Controls("Calculated Item...")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				
以下宏示例返回数据透视表快捷菜单栏的公式子菜单上的所有项的 Id:
   Sub GetAll_Submenu_Ids()

      Dim ctrl as Object
      For Each ctrl in CommandBars("PivotTable Context Menu") _
      .Controls("Formulas").Controls
         MsgBox ctrl.Caption & Chr(13) & ctrl.Id
      Next ctrl

   End Sub
				

参考

有关详细信息,有关以编程方式自定义命令栏,在 Visual Basic 编辑器中单击 Office 助手,键入 自定义菜单,单击 搜索,然后单击查看命令栏的概述。

注意如果隐藏的助手单击在 Office 助手 在常用工具栏上的按钮。如果您的计算机上没有安装 Microsoft Visual Basic 帮助,请参阅 Microsoft 知识库中下面的文章:
120802办公室: 如何添加或删除单个的 Office 程序或组件

属性

文章编号: 162814 - 最后修改: 2007年1月19日 - 修订: 4.2
这篇文章中的信息适用于:
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 标准版
  • Microsoft Excel 2000 标准版
  • Microsoft Excel 97 标准版
关键字:?
kbmt kbhowto kbprogramming KB162814 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 162814
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com