Beispielmakros zur Rückgabe ID für ein CommandBar-Steuerelement

SPRACHE AUSWÄHLEN SPRACHE AUSWÄHLEN
Artikel-ID: 162814 - Produkte anzeigen, auf die sich dieser Artikel bezieht
Alles erweitern | Alles schließen

Auf dieser Seite

Zusammenfassung

Die ID-Eigenschaft für das CommandBar-Objekt verwendet eine eindeutige Nummer für jede integrierte Menüleiste, Kontextmenüleiste, Untermenü, Menüelement oder Symbolleiste. Die ID ist häufig erforderlich, wenn Sie ein Steuerelement auf einer Befehlsleiste verweisen. Visual Basic für Applikationen Makrobeispiele in diesem Artikel zurück, die ID für verschiedene Steuerelemente der Befehlsleiste.

Weitere Informationen

Weitere Informationen finden Sie die folgende KB-Artikelnummer:
159466XL97: Liste der Nummern für die integrierten Befehlsleisten-Steuerelemente

Microsoft bietet Programmierbeispiele für Abbildung nur ohne Gewährleistung oder konkludent. Dies umfasst, ist jedoch nicht beschränkt auf konkludenten Garantien der Handelsüblichkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel setzt voraus, dass Sie mit der Programmiersprache, die Programmierungsbeispiele ist und mit den Tools, die zum Erstellen und Debuggen von Prozeduren verwendet werden vertraut sind. Microsoft Support-Technikern helfen Erläuterung die Funktionalität einer bestimmten Prozedur, Sie werden ändert jedoch nicht diese Beispiele bieten Funktionen hinzugefügt oder Verfahren, um Ihren Anforderungen entsprechend zu erstellen.

Menü auf einer Menüleiste

Das folgende Makrobeispiel gibt die ID für das Menü Extras des integrierten - Diagramm-Menüleiste zurück:
   Sub File_Id

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

   End Sub
				

Menübefehl in einem Menü

Im folgenden Makro Beispiel wird zurückgegeben die ID für den Befehl Beenden im Menü Datei der integrierten Menüleiste Arbeitsblatt:
   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
				

Ein Untermenü ein Menü Verknüpfung auf Befehl

Im folgenden Makro Beispiel wird zurückgegeben die ID für den Befehl berechnetes Element im Untermenü Formeln PivotTable Kontextmenüleiste:
   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
				
das folgenden Makrobeispiel die ID für alle Elemente auf Formeln Untermenü der PivotTable-Kontextmenüleiste zurückgegeben:
   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
				

Informationsquellen

Weitere Informationen zum programmgesteuerten Anpassen der Befehl Balken im Visual Basic-Editor Anpassen von Menüs , geben die Office-Assistenten , klicken klicken Sie auf Suchen , und dann auf an ? Übersicht über Befehlsleisten. ?

Hinweis: Wenn der Assistent ausgeblendet ist, klicken Sie auf der Office-Assistent für auf der Standardsymbolleiste auf die Schaltfläche. Wenn Microsoft Visual Basic-Hilfe nicht auf Ihrem Computer installiert ist, finden Sie im folgenden Artikel der Microsoft Knowledge Base:
120802Office: How to hinzufügen/entfernen einzelne Office-Programme bzw. Komponenten

Eigenschaften

Artikel-ID: 162814 - Geändert am: Freitag, 19. Januar 2007 - Version: 4.2
Die Informationen in diesem Artikel beziehen sich auf:
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
Keywords: 
kbmt kbhowto kbprogramming KB162814 KbMtde
Maschinell übersetzter Artikel
Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen übersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden ständig ergänzt beziehungsweise überarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu können, werden viele Artikel nicht von Menschen, sondern von Übersetzungsprogrammen übersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell übersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdwörtern sowie Fachbegriffen. Microsoft übernimmt keine Gewähr für die sprachliche Qualität oder die technische Richtigkeit der Übersetzungen und ist nicht für Probleme haftbar, die direkt oder indirekt durch Übersetzungsfehler oder die Verwendung der übersetzten Inhalte durch Kunden entstehen könnten.
Den englischen Originalartikel können Sie über folgenden Link abrufen: 162814
Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.

Ihr Feedback an uns

 

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