XL2000: Ukázková makra, které vlastní a řízení místní nabídky

Překlady článku Překlady článku
ID článku: 213209 - 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

Tato funkce článku ukázka Microsoft Visual Basic pro Applications makra, přizpůsobit a řídit pomocí objektu Commandbar místní nabídky.

Důležité: některé příklady v tomto článku použít IDENTIFIKAČNÍ číslo pro určitý ovládací prvek. Obnovit vestavěnou nabídku je odstraněn ukázkové makro, musíte znát jeho číslo.

Další informace

Ukázky programů jsou společností Microsoft poskytovány pouze pro ilustraci bez žádné záruky výslovně uvedené ani předpokládané, včetně předpokládaný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.
Pokud máte zkušenosti s programováním omezený, můžete kontaktovat partnera s certifikátem Microsoft nebo služby Advisory. Na další informace těchto webech společnosti Microsoft:

Microsoft Certified Partner - https://partner.microsoft.com/global/30000104

Služba Microsoft zpravodaje - http://support.microsoft.com/gp/advisoryservice

Další informace o možnostech podpory, které jsou k dispozici a o možnostech kontaktování společnosti Microsoft na následujícím webu společnosti Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Odstranění a obnovení řádek celou místní nabídky

Následující ukázkové makro odstraní místní nabídce buňky listu:
Sub Del_ShortCutMenu()
   CommandBars("Cell").Enabled = False
End Sub
				
následující ukázkové makro obnoví místní nabídce buňky listu:
Sub Restore_ShortCutMenu()
   CommandBars("Cell").Enabled = True
End Sub
				

Odstranění a obnovení nabídky v místní nabídce

Následující ukázkové makro odstraní příkaz Vyjmout v místní nabídce buňky listu:
Sub Del_Item()
   CommandBars("Cell").Controls("Cut").Delete
End Sub
				
následující ukázkové makro obnoví v listu buňku místní nabídce na příkaz Vyjmout:
Sub Add_Item()
   CommandBars("Cell").Controls.Add Type:=msoControlButton, Id:=21, _
   Before:=1
End Sub
				
Poznámka: ID 21 odpovídá příkaz Vyjmout.

Odstranění a obnovení podnabídka na místní nabídka

Následující ukázkové makro odstraní podnabídka vzorce v místní nabídce kontingenční:
Sub Del_Submenu()
   CommandBars("PivotTable Context Menu").Controls("Formulas").Delete
End Sub
				
Poznámka: ID 21 odpovídá příkaz Vyjmout.

Následující ukázkové makro obnoví podnabídka vzorce v místní nabídce kontingenční:
Sub Restore_Submenu()
   Dim x as Object
   set x = CommandBars("PivotTable Context Menu")
   x.Controls.Add Type:=msoControlPopup, Id:=30254, Before:=8
   x.Reset ' The reset method is used to populate the Formulas submenu
End Sub
				
Poznámka: ID 30254 odpovídá podnabídka vzorce.

Odstranění a obnovení příkaz na podnabídka

Následující ukázkové makro odstraní příkaz Výpočtové pole v podnabídce vzorce v místní nabídce kontingenční:
Sub Del_Submenu_Item()
   Dim x as Object
   set x = CommandBars("PivotTable Context Menu").Controls("Formulas")
   x.Controls("Calculated Field...").Delete
End Sub
				
podnabídka vzorce v místní nabídce kontingenční obnoví následující ukázkové makro:
Sub Restore_Submenu_Item()
   Dim x as Object
   set x = CommandBars("PivotTable Context Menu").Controls("Formulas")
   x.Controls.Add Type:=msoControlButton, Id:=1597, Before:=1
End Sub
				
Poznámka: ID 1597 odpovídá příkazu Výpočtové pole v podnabídce vzorce.

Odkazy

Další informace o příkazu pruhů klepněte na následující čísla následujících článcích databáze Microsoft Knowledge Base:
213552XL2000: Seznam čísel ID pro předdefinované Controls CommandBar
213550XL2000: Ukázková makra pro přizpůsobení nabídky a podnabídky
Další informace o přizpůsobení programově pruhy v editoru jazyka klepnutím Microsoft Visual Basic v nabídce Nápověda příkaz zadejte objekt kolekce commandbarcontrols v Pomocníkovi Office nebo průvodce a klepněte na tlačítko Hledat zobrazíte příslušné téma.

Vlastnosti

ID článku: 213209 - Poslední aktualizace: 23. listopadu 2006 - Revize: 4.4
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Excel 2000 Standard Edition
Klíčová slova: 
kbmt kbhowto kbinfo kbprogramming KB213209 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:213209

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