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

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
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 = FalseEnd Sub				
následující ukázkové makro obnoví místní nabídce buňky listu:
Sub Restore_ShortCutMenu()   CommandBars("Cell").Enabled = TrueEnd 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").DeleteEnd 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:=1End 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").DeleteEnd 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 submenuEnd 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...").DeleteEnd 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:=1End 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.
nabídka panel menubars XL2000

Upozornění: Tento článek je přeložený automaticky

Vlastnosti

ID článku: 213209 - Poslední kontrola: 11/23/2006 09:24:58 - Revize: 4.4

Microsoft Excel 2000 Standard Edition

  • kbmt kbhowto kbinfo kbprogramming KB213209 KbMtcs
Váš názor