Ukázková makra vraťte ID pro ovládací prvek CommandBar

Překlady článku Překlady článku
ID článku: 162814 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Vlastnost ID objektu CommandBar používá jedinečné číslo pro každý integrovaný panel nabídek, nabídek místní, podnabídka, položka nabídky nebo panelu nástrojů. ID je požadována často při odkazu na ovládací prvek na panel příkazů. Visual Basic for Applications makro příklady v tomto článku vrátit ID pro různé ovládací prvky Commandbar.

Další informace

Další informace získáte v následujícím článku znalostní báze Microsoft Knowledge Base:
159466Xl97: IDENTIFIKAČNÍ čísla integrovaný příkaz panel ovládací prvky seznam

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené,. včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.

Nabídky na panel nabídek

Následující příklad makra vrátí ID nabídce Nástroje předdefinovaný - v grafu nabídek:
   Sub File_Id

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

   End Sub
				

Příkaz nabídky v nabídce

Následující příklad makra vrátí ID příkaz Konec v nabídce soubor vestavěných nabídek sešit:
   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
				

Příkaz v podnabídce místní nabídky

Následující příklad makra vrátí ID výpočtová položka příkaz v podnabídce vzorce v kontingenční tabulce zástupce nabídek:
   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
				
následující příklad makra vrátí ID pro všechny položky v podnabídce vzorce kontingenční zástupce nabídek:
   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
				

Odkazy

Další informace o přizpůsobení programově příkaz pruhy v editoru jazyka klepněte na Pomocníka, zadejte Úpravy nabídek klepněte na tlačítko Hledat a potom klepněte na tlačítko Zobrazit "Přehled příkazů panelů."

Poznámka: Pokud pomocník je skrytý, klepněte Office Assistant tlačítko na panelu nástrojů Standardní. Pokud nápovědě jazyka v počítači není nainstalován, naleznete v následujícím článku databáze Microsoft Knowledge Base:
120802Sady Office: Jak přidat nebo odebrat jednu aplikaci Office nebo součásti

Vlastnosti

ID článku: 162814 - Poslední aktualizace: 19. ledna 2007 - Revize: 4.2
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
Klíčová slova: 
kbmt kbhowto kbprogramming KB162814 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:162814

Dejte nám zpětnou vazbu

 

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