要傳回 CommandBar 控制項的 ID 的範例巨集

文章翻譯 文章翻譯
文章編號: 162814 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

CommandBar 物件的 [識別碼] 屬性使用唯一的數字每個內建功能表列、 快顯功能表列、 子功能表、 功能表項目或工具列。您參考命令列中的控制項時,通常需要 ID。Visual Basic 中這份文件的應用程式巨集範例會傳回各種 Commandbar 控制項的識別碼。

其他相關資訊

如需詳細資訊按一下 [下面的文件編號,檢視 「 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
				
的下列的巨集範例會傳回的所有項目識別碼上的樞紐分析表快顯功能表列的 [公式] 子功能表:
   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 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
關鍵字:?
kbmt kbhowto kbprogramming KB162814 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本: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