Přizpůsobení nabídek a panelů nabídek v aplikaci Excel

Souhrn

Tento článek popisuje přizpůsobení nabídek a panelů nabídek v aplikaci Microsoft Excel 2000 a novější. Tento článek obsahuje podrobné pokyny a ukázky kódu programově spravovat a přizpůsobení nabídek, nabídek, příkazů, podnabídek a místních nabídek v aplikaci Microsoft Excel.

V TOMTO ÚKOLU

ÚVOD

Provádět mnoho běžných úkolů, které jsou spojeny s vlastní nastavení nabídek a nabídek v aplikaci Microsoft Excel 2000, Microsoft Excel 2002 a Microsoft Office Excel 2003 pomocí dialogového okna vlastní . Chcete-li provést další rozšířené úkoly nebo přizpůsobit nabídek a nabídek pro vlastní program, můžete chtít vytvořit Microsoft Visual Basic pro Applications (VBA) kódy.

Další informace o tom, jak použít dialogové okno Vlastní, klepněte na příkaz Nápověda pro Microsoft Excel v
Nabídku Nápověda v Pomocníkovi Office nebo v Průvodci odpověďmi zadejte vlastní panel nabídek a potom klepněte na tlačítko Hledat zobrazíte příslušné téma.


Tento článek pomáhá zjistěte techniky pro psaní kódu VBA pro vlastní panely nabídek, nabídky, položky nabídky, podnabídky a místní nabídky.

zpět na horní

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci bez žádné záruky výslovně uvedené nebo odvozené. To zahrnuje, ale není omezen pouze na předpokládané záruky obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předmětem ukázky a s nástroji, které slouží k vytvoření a ladění skriptu. Pracovníci podpory společnosti Microsoft mohou pomoci vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo vytvářet postupy podle vašich konkrétních požadavků.

Příklady v tomto článku

Příklady v tomto článku pomocí kódu jazyka VBA v aplikaci Excel 2000, Excel 2002 a Excel 2003 vlastní nabídky. Chcete-li použít příklad makra, postupujte takto:
  1. Spuštění aplikace Excel.
  2. V nabídce Nástroje přejděte na příkaz
    Makroa potom klepněte na příkaz Editor jazyka Visual Basic.
  3. V nabídce Vložit klepněte na tlačítko
    Modulu.
  4. Zadejte jedno makro příklady v tomto článku nebo operaci kopírování a vkládání lze zkopírovat příklady maker do listu modulu.
  5. V nabídce Spustit klepněte na tlačítko Spustit Sub/uživatelský formulář.
  6. Pokud se zobrazí dialogové okno makro , klepněte na název makra a potom klepněte na příkaz Spustit.
zpět na horní

Panely příkazů

V aplikaci Microsoft Office, panely nástrojů, panely nabídek a místní nabídky jsou všechny řízena programově jako jeden typ objektu: příkaz pruhy. Následující položky jsou v jazyce VBA představované objekty panelu příkazů :
  • Nabídek, panelů nástrojů a místní nabídky.
  • Nabídky na řádku nabídek a panelů nástrojů.
  • Podnabídek nabídek, podnabídek a místní nabídky.
Můžete upravit libovolný integrovaný panel nabídek nebo předdefinované panely nástrojů a můžete vytvářet a upravovat vlastní panely nástrojů, panely nabídek a místní nabídky doručit pomocí kódu jazyka VBA. Funkce programu se prezentovat jako jednotlivých tlačítek na panelech nástrojů nebo skupiny názvy příkazů v nabídkách. Protože panely nástrojů a nabídky jsou oba panely příkazů, můžete použít stejný druh ovládací prvky.

V modulu VBA v aplikaci Microsoft Visual Basic, tlačítka a položky nabídky reprezentována CommandBarButton objekty. Rozbalovací ovládací prvky, které zobrazení nabídek a podnabídek jsou reprezentovány objekty CommandBarPopup . V následujících příkladech jsou oba rozbalovací ovládací prvky, které zobrazují nabídky a podnabídky ovládacího prvku s názvem "Nabídka" a ovládací prvek, který je s názvem "Podnabídky". Nabídky a podnabídky jsou jedinečné objekty panelu příkazů s vlastní sadu ovládacích prvků.

V aplikaci Microsoft Excel nabídek a panelů nástrojů jsou označovány jako typ programovatelný objekt, objekt panelu příkazů . Pomocí ovládacích prvků v objektu panelu příkazů naleznete v nabídky, položky nabídky, místní nabídky a podnabídek. Určuje typ ovládacího prvku, který chcete použít pro nabídky, podnabídky nebo příkaz použít konstantu s každý prvek v argumentu Typ .

zpět na horní

Konstanty pro řízení

Následuje seznam různých konstanty ovládacího prvku v aplikaci Excel 2003 určující typ grafického ovládacího prvku pro ovládací prvek panel konkrétní nabídky:
  • MsoControlActiveX*
  • MsoControlAutoCompleteCombo***
  • MsoControlButton
  • MsoControlButtonDropdown
  • MsoControlButtonPopup
  • MsoControlComboBox
  • MsoControlCustom
  • MsoControlDropdown
  • MsoControlEdit
  • MsoControlExpandingGrid
  • MsoControlGauge
  • MsoControlGenericDropdown
  • MsoControlGraphicCombo
  • MsoControlGraphicDropdown
  • MsoControlGraphicPopup
  • MsoControlGrid
  • MsoControlLabel
  • MsoControlLabelEx***
  • MsoControlOCXDropDown
  • MsoControlPane **
  • MsoControlPopup
  • MsoControlSpinner***
  • MsoControlSplitButtonMRUPopup
  • MsoControlSplitButtonPopup
  • MsoControlSplitDropdown
  • MsoControlSplitExpandingGrid
  • MsoControlWorkPane**
* = Nový v aplikaci Microsoft Excel 2000
** = Nový v aplikaci Microsoft Excel 2002
= Nový v aplikaci Microsoft Office Excel 2003

zpět na horní

Řádky nabídek

Řádek nabídek je druh panelu příkazů. Řádek nabídek je druh objektu, kde můžete přidat nabídky, položky nabídky a podnabídky.

Další informace o správě nabídek a položek nabídky v aplikaci Excel postupujte takto:
  1. Spuštění editoru jazyka Visual Basic.
  2. V nabídce Nápověda klepněte na příkaz Nápověda pro Microsoft Visual Basic.
  3. Do pole V Pomocníkovi Office nebo v
    Průvodce odpověďmi , zadejte řádky nabídeka klepněte na tlačítko Hledat.
  4. V aplikaci Excel 2003 a Excel 2002 klepněte na tlačítko Přidání a správa nabídek a položek nabídky. V aplikaci Excel 2000 klepněte na tlačítko nabídky a panely nástrojů.
Na panelu nabídek a ovládacích prvků v této nabídce můžete provést změny v době běhu. Změny provedené v řádku nabídek může ovlivnit vzhled nebo umístění panelu nabídek. Změny provedené u ovládacích prvků závisí na typu ovládacího prvku. V následující tabulce jsou uvedeny nejčastěji používané vlastnosti a metody společné pro změnu stavu, akce nebo obsah ovládacího prvku:
Vlastnost nebo metodaÚčel
PřidatPřidá řádek nabídek pomocí metody Add kolekce CommandBars objektu a zadáním hodnoty true pro argument řádek nabídek .
PovolenoPokud je vlastnost Enabled nastavena na hodnotu TRUE, uživatel může zviditelnit zadaný řádek nabídek pomocí kódu jazyka Visual Basic. Pokud je vlastnost Enabled nastavena na hodnotu FALSE, uživatel nelze zobrazit panel nabídek. Panel nabídek se však zobrazí v seznamu panelů příkazů k dispozici.
OchranaUmožní Zamknout panel nabídek z určitých uživatelských akcí.
PoziceUrčuje pozici vzhledem k okna programu nový panel nabídek. Umístění nabídek vzhledem k jeho okno může být jeden z následujících vlastností konstantní MsoBarPosition : msoBarLeft, msoBarTop, msoBarRight, msoBarBottom, msoBarFloating, msoBarPopup (používá se k vytvoření místní nabídky) nebo msoBarMenuBar (pouze pro použití s Apple Macintosh).
ViditelnéUrčuje, zda je ovládací prvek viditelný nebo skrytý.

zpět na horní

Vrátí ID pro ovládací prvek panel příkazů

Následující příklad kódu vrátí ID aktivních nabídek:
Sub Id_Control ()Dim myId as Object
set myId = CommandBars("Worksheet Menu Bar").Controls("Tools")
MsgBox myId.Caption & Chr(13) & MyId.Id
End Sub


zpět na horní

Určení názvu aktivních nabídek

Následující příklad kódu vrátí název aktivních nabídek:
Sub MenuBars_GetName()   MsgBox CommandBars.ActiveMenuBar.Name
End Sub


zpět na horní

Uložit aktivní stav (u předdefinované nebo vlastní nabídek)

Můžete deklarovat proměnnou OriginalMenuBar veřejné proměnné, takže podprogramu lze použít v jiné podprogram, například Auto_Close podprogram. Deklarování a pomocí proměnné tímto způsobem obnoví do původního stavu uživatele předchozí řádek nabídek. Následující ukázkové makro obnoví panel nabídek:
Public OriginalMenuBar as Object
Sub MenuBars_Capture()
Set OriginalMenuBar = CommandBars.ActiveMenuBar
End Sub

zpět na horní

Vytvoření vlastního řádku nabídek

Následující příklad kódu vytvoří vlastní příkaz panel, který je s názvem Můj panel příkazů:
Sub MenuBar_Create() Application.CommandBars.Add Name:="My command bar" End Sub

Můžete také vytvořit vlastní příkaz panel pomocí dočasné: = True argument. Dočasné: = True argument umožňuje panely příkazů, chcete-li automaticky obnovit při ukončení aplikace Excel. Následující kód používá dočasné: = True argument pro vytvoření vlastního řádku nabídek:
Sub MenuBar_Create()Application.CommandBars.Add Name:="My command bar", Temporary:=True
End Sub
zpět na horní

Zobrazení vlastního řádku nabídek

Následující příklad vytvoří a zobrazí vlastní panel Moje vlastní panel nabídek a pak nahradí vestavěný řádek nabídek:
Sub MenuBar_Show()Dim myNewBar As Object
Set myNewBar = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)
' You must first enable your custom menu bar before you make it visible.
' Enabling a menu bar adds it to the list of available menu bars on
' the Customize dialog box.
' Setting the menubar property to True replaces the built-in menu bar.
myNewBar.Enabled = True
myNewBar.Visible = True
End Sub


zpět na horní

Odstranění vlastního řádku nabídek

Následující příklad kódu odstraní vlastní řádek nabídek s názvem Vlastní 1.
Sub MenuBar_Delete()   CommandBars("Custom1").Delete
End Sub


zpět na horní

Skrýt panel příkazů

Následující příklad kódu odebere vestavěné
Panel nabídek pro graf ze seznamu dostupných nabídek:
Sub MenuBar_Display()   CommandBars("Chart").Enabled = False
End Sub

zpět na horní

Zobrazení panelu příkazů

Následující příklad kódu přidá vestavěnou
Panel nabídek pro graf ze seznamu dostupných nabídek:
Sub MenuBar_Display()   CommandBars("Chart").Enabled = True
End Sub

zpět na horní

Obnovit vestavěné příkazového řádku

Obnovení panelu nabídek obnoví výchozí ovládací prvky (pro nabídky a položky nabídky). Následující příklad kódu obnoví vestavěné
Panel nabídek pro graf :
Sub MenuBar_Restore()   CommandBars("Chart").Reset
End Sub
Poznámka: Obnovit můžete pouze předdefinované panely nabídek. Vlastní panel nástrojů nelze obnovit.

zpět na horní

Nabídky

Obnovení panelu nabídek obnoví výchozí ovládací prvky (pro nabídky a položky nabídky). Následující příklad kódu obnoví vestavěné
Panel nabídek pro graf :
Sub MenuBar_Restore()   CommandBars("Chart").Reset
End Sub
Poznámka: Obnovit můžete pouze předdefinované panely nabídek. Vlastní panel nástrojů nelze obnovit.

zpět na horní

Přidání ovládacího prvku vlastní nabídky na panelu příkazů

Následující příklad kódu přidá název nabídky, které můžete programově přidat panel nabídek pro sešit . Například tento kód přidá nabídky název Nové nabídky na na
Panel nabídek pro sešit .

Poznámka: V této nabídce můžete dát libovolný název, který chcete.
Sub Menu_Create()Dim myMnu As Object
Set myMnu = CommandBars("Worksheet menu bar").Controls. _
Add(Type:=msoControlPopup, before:=3)
With myMnu
' The "&" denotes a shortcut key assignment (Alt+M in this case).
.Caption = "New &Menu"
End With
End Sub


zpět na horní

Zakázat ovládací prvek menu na panelu příkazů

Ovládací prvek menu, které je zakázáno se zobrazí šedě a není k dispozici v příkazovém řádku. V následujícím příkladu zakáže Nové nabídky:
Sub Menu_Disable()   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = False
End Sub

zpět na horní

Povolit ovládací prvek menu na panelu příkazů

Následující příklad kódu umožňuje Nové nabídky, který jste zakázali v části "Zakázat ovládací prvek menu na panelu příkazů":
Sub Menu_Disable()   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = True
End Sub

zpět na horní

Odstranit ovládací prvek menu na panelu příkazů

Následující příklad kódu odstraní Nové nabídky, který jste vytvořili v části "Přidání ovládacího prvku vlastní nabídky na panel příkazů" v řádku nabídek listu :
Sub Menu_Delete()   CommandBars("Worksheet menu bar").Controls("New &Menu").Delete
End Sub


zpět na horní

Obnovit ovládací prvek menu na panelu příkazů

Následující příklad kódu obnoví vestavěné
Panel nabídek pro graf na panelu nabídek listu :

Sub Menu_Restore()Dim myMnu As Object
Set myMnu = CommandBars("Chart")
myMnu.Reset
End Sub

zpět na horní

Příkazy

Rozsah změn, které můžete provést příkaz závisí na typu ovládacího prvku. Obecně tlačítka jsou buď povoleno, nebo jsou skryté. Textová, rozevírací seznamy a pole se seznamem jsou univerzálnější, v tom, že můžete přidat nebo odstranit položky ze seznamu. Navíc můžete určit akce, která je provedena podle hodnoty zboží, které jste vybrali ze seznamu. Akce libovolného ovládacího prvku můžete změnit předdefinované funkce nebo vlastní funkce.

V následující tabulce jsou uvedeny nejběžnější vlastnosti ovládacího prvku a metody pro změnu stavu, akce nebo obsah ovládacího prvku:
Vlastnost nebo metodaÚčel
PřidatPřidá příkaz na příkazovém řádku.
AddItemPřidá položku do části rozevírací seznam, pole rozevíracího seznamu nebo pole se seznamem.
StylUrčuje, zda se zobrazí tlačítko obličej ikona nebo titulek.
OnActionUrčuje postup spustit, pokud uživatel změní hodnotu ovládacího prvku.
ViditelnéUrčuje, zda je ovládací prvek viditelný nebo skrytý.

Další informace o nabídkách v aplikaci Excel 2003 a Excel 2002 postupujte takto:
  1. Spuštění editoru jazyka Visual Basic.
  2. V nabídce Nápověda klepněte na příkaz Nápověda pro Microsoft Visual Basic.
  3. Do pole Hledání v nápovědě zadejte
    nabídkya stiskněte klávesu ENTER.
  4. Klepněte na tlačítko Přidání a správa nabídek a položek nabídek (systému Office).

zpět na horní

Přidat oddělovač ovládací prvek menu

Následující příklad kódu přidá oddělovač před příkaz list v nabídce Vložit :
Sub menuItem_AddSeparator()   CommandBars("Worksheet menu bar").Controls("Insert") _
.Controls("Worksheet").BeginGroup = True
End Sub
Poznámka: Chcete-li oddělovač odstranit, nastavte vlastnost BeginGroup na hodnotu False.

zpět na horní

Vytvoření ovládacího prvku vlastní příkaz v nabídce

Následující příklad kódu vytvoří nový příkaz v nabídce Nástroje s názvem Vlastní 1
Panel nabídek pro sešit a spustí makro Code_Custom1 po klepnutí na tlačítko Vlastní 1:
Sub menuItem_Create()   With CommandBars("Worksheet menu bar").Controls("Tools")
.Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Custom1"
.Controls("Custom1").OnAction = "Code_Custom1"
End With
End Sub

zpět na horní

Umístěte zaškrtnutí u příkazu ovládacího prvku

Následující příklad kódu vloží zaškrtnutí vedle příkazu Vlastní 1 , pokud není vybrána a potom zrušíte zaškrtnutí, pokud vyberete příkaz Vlastní 1 :
Sub menuItem_checkMark()Dim myPopup as Object

Set myPopup = CommandBars("Worksheet menu bar").Controls("Tools")
If myPopup.Controls("Custom1").State = msoButtonDown Then
' Remove check mark next to menu item.
myPopup.Controls("Custom1").State = msoButtonUp
MsgBox "Custom1 is now unchecked"
Else
' Add check mark next to menu item.
myPopup.Controls("Custom1").State = msoButtonDown
MsgBox "Custom1 is now checked"
End If
End Sub

zpět na horní

Zakázat příkazový ovládací prvek na panel příkazů

Následující příklad kódu zakáže Vlastní 1 příkaz, který jste vytvořili v části "Vytvoření ovládacího prvku vlastní příkaz v nabídce" v nabídce Nástroje :
Sub MenuItem_Disable()Dim myCmd as Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("Tools")
myCmd.Controls("Custom1").Enabled = False
End Sub

zpět na horní

Povolení ovládacího prvku příkazu v příkazovém řádku

Následující příklad kódu umožňuje Vlastní 1 příkaz, který jste zakázali v části "Zakázat příkazový ovládací prvek na panel příkazů":
Sub MenuItem_Enable()Dim myCmd as Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("Tools")
myCmd.Controls("Custom1").Enabled = True
End Sub


zpět na horní

Odstranění ovládacího prvku příkazů v nabídce

Následující příklad kódu odstraní příkaz Uložit v nabídce soubor :
Sub menuItem_Delete()Dim myCmd As Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("File")
myCmd.Controls("Save").Delete
End Sub


zpět na horní

Obnovit ovládací prvek integrovaný příkaz nabídky

Obnovit ovládací prvek příkaz v nabídce, je třeba znát číslo identifikace (ID) ovládacího prvku. Chcete-li určit číslo ID, naleznete v části "Vrátit ID pro ovládací prvek panel příkazů". Následující příklad odstraní a poté obnoví příkaz Uložit , které jste odstranili v části "Ovládací prvek příkaz nabídky odstranit":
Sub menuItem_Restore()Dim myCmd As Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("File")
' Id 3 refers to the Save menu item control.
myCmd.Controls.Add Type:=msoControlButton, ID:=3, Before:=5
End Sub

zpět na horní

Podnabídek

Podnabídky zobrazen vedle nadřazené nabídky po klepnutí příkaz. Příkaz podnabídky ovládacího prvku má malá černá šipka, která je umístěna na pravém konci název příkazu.

zpět na horní

Přidání podnabídky

Následující příklad kódu přidá nové podnabídky, která se nazývá
NewSub v nabídce Nástroje
Panel nabídek pro sešit :
Sub SubMenu_Create()Dim newSub as Object
Set newSub = CommandBars("Worksheet menu bar").Controls("Tools")
With newSub
.Controls.Add(Type:=msoControlPopup, Before:=1).Caption="NewSub"
End With
End Sub

zpět na horní

Přidání příkazu do podnabídky

Následující příklad kódu přidá nový příkaz, který je s názvem
SubItem1 podnabídky NewSub , a pak spustí makro Code_SubItem1 po klepnutí na tlačítko SubItem1:
Sub SubMenu_AddItem()Dim newSubItem as Object
Set newSubItem = CommandBars("Worksheet menu bar") _
.Controls("Tools").Controls("NewSub")
With newSubItem
.Controls.Add(Type:=msoControlButton, Before:=1).Caption = "SubItem1"
.Controls("SubItem1").OnAction = "Code_SubItem1"
End With
End Sub


zpět na horní

Zakázání ovládacího prvku příkaz podnabídky

Následující příklad kódu zakáže stejný příkaz podřízenou položku , kterou jste vytvořili v části "Přidat příkaz podnabídky":
Sub SubMenu_DisableItem()   CommandBars("Worksheet menu bar").Controls("Tools") _
.Controls("NewSub").Controls("SubItem1").Enabled = False
End Sub


Následující příklad povoluje stejný příkaz podpoložek:
Sub SubMenu_DisableItem()   CommandBars("Worksheet menu bar").Controls("Tools") _
.Controls("NewSub").Controls("SubItem1").Enabled = True
End Sub

zpět na horní

Odstranit příkaz z podnabídky

Následující příklad odstraní SubItem1 příkaz, který jste vytvořili v části "Přidání příkazu do podnabídky" v podnabídce NewSub :
Sub SubMenu_DeleteItem()   CommandBars("Worksheet menu bar").Controls("Tools") _
.Controls("NewSub").Controls("SubItem1").Delete
End Sub


zpět na horní

Zakázat ovládací podnabídku

Následující příklad kódu zakáže NewSub podnabídky, kterou jste vytvořili v části "Přidání podnabídky" v nabídce Nástroje :
Sub SubMenu_DisableSub()   CommandBars("Worksheet menu bar").Controls("Tools") _
.Controls("NewSub").Enabled = False
End Sub
Poznámka: Chcete-li povolit zakázané ovládací prvek, nastavte vlastnost Enabled na hodnotu True.

zpět na horní

Odstranění ovládacího prvku podnabídky

Následující příklad kódu odstraní podnabídky NewSub , který jste vytvořili v části "Přidání podnabídky" v nabídce Nástroje :
Sub SubMenu_DeleteSub()   CommandBars("Worksheet menu bar").Controls("Tools") _
.Controls("NewSub").Delete
End Sub

zpět na horní

Zástupce nabídek

Místní nabídka je plovoucí panel příkazů, který se zobrazí, když uživatel klepne pravým tlačítkem myši na objekt. Panel místní nabídky mohou obsahovat stejné typy ovládacích prvků jako panel příkazů a ovládacích prvků se chovají stejně jako ovládací prvky na panelu příkazů. Nelze vytvořit nebo upravit místní nabídky z rozhraní programu ve většině programů. Proto musí vytvořit a upravit místní nabídky v době běhu.

Další informace o místní nabídky v aplikaci Excel 2002 a Excel 2003 postupujte takto:
  1. Spuštění editoru jazyka Visual Basic.
  2. V nabídce Nápověda klepněte na příkaz Nápověda pro Microsoft Visual Basic.
  3. Do pole Hledání v nápovědě zadejte
    zástupcea potom stiskněte klávesu ENTER.
  4. Klepněte na tlačítko Přidání a zobrazení místní nabídky.
zpět na horní

Vytvořit nový řádek místní nabídky

Následující příklad kódu vytvoří nový řádek místní nabídky, která je s názvem myShortcutBar:
Sub Shortcut_Create()Dim myShtCtBar as Object
Set myShtCtBar = CommandBars.Add(Name:="myShortcutBar", _
Position:=msoBarPopup)
‘ This displays the shortcut menu bar.
‘ 200, 200 refers to the screen position in pixels as x and y coordinates.
myShtCtBar.ShowPopup 200,200
End Sub


Poznámka: Řádek místní nabídky se zobrazí prázdné, protože mu nebyly přidány žádné ovládací prvky (položky nabídky nebo podnabídky).

zpět na horní

Místní nabídky

Pomocí pravého tlačítka myši klepněte na konkrétní objekt aplikace Excel zobrazí místní nabídka pruhy. Aplikace Excel obsahuje mnoho klávesových nabídek pro které jsou k dispozici různé nabídky. Můžete také vytvořit vlastní zástupce nabídek a přizpůsobit vestavěných nabídek.

zpět na horní

Vytvoření příkazu na panel místní nabídky

Následující příklad kódu vytvoří nový příkaz nabídky s názvem Item1 na řádek místní nabídky myShortcutBar a spustí makro Code_Item1 , když klepnete na tlačítko položka1:
Sub Shortcut_AddItem()Dim myBar as Object
Set myBar = CommandBars("myShortcutBar")
With myBar
.Controls.Add (Type:=msoControlButton, before:=1).Caption = "Item1"
.Controls("Item1").OnAction = "Code_Item1"
End With
myBar.ShowPopup 200,200
End Sub

zpět na horní

Zakázat příkazový ovládací prvek na panel místní nabídky

Následující příklad kódu zakáže Item1 příkaz, který jste vytvořili v oddílu "Vytvoření příkazu v místní nabídce":
Sub Shortcut_DisableItem()   Set myBar = CommandBars("myShortcutBar")
myBar.Controls("Item1").Enabled = False
myBar.ShowPopup 200,200
End Sub
Poznámka: Chcete-li povolit zakázané položky, nastavte vlastnost zpřístupnit na hodnotu True.

zpět na horní

Odstranění příkazu na panel místní nabídky

Následující příklad kódu odstraní příkaz nabídky na panelu nabídek místní myShortcutBar s názvem položka1 .
Sub Shortcut_DeleteItem()   Set myBar = CommandBars("myShortcutBar")
myBar.Controls("Item1").Delete
myBar.ShowPopup 200,200
End Sub

zpět na horní

Odstranit řádek místní nabídky

Odstranit řádek místní nabídky odebere všechny položky. Nelze obnovit odstraněné vlastní panel nabídek. Chcete-li jej obnovit, je nutné znovu vytvořit a všechny položky nabídky a podnabídek.

Následující příklad kódu odstraní řádek místní nabídky myShortCutBar , který jste vytvořili v části "Vytvořit příkaz na panel místní nabídky":
Sub Shortcut_DeleteShortCutBar()   CommandBars("MyShortCutBar").Delete
End Sub

zpět na horní

Obnovit příkaz na panel integrované místní nabídky

Následující příklad kódu obnoví výchozí příkazy na panelu nabídek místní buňky listu:
Sub Shortcut_RestoreItem()   CommandBars("Cell").Reset
End Sub

zpět na horní

Podnabídek v místních nabídkách

Můžete vytvořit podnabídek na zástupce nabídek. Podnabídky zobrazen vedle nadřazené nabídky po klepnutí na tlačítko příkazový ovládací prvek. Příkaz podnabídky ovládacího prvku má malou, černou šipku, která se nachází napravo od názvu.

zpět na horní

Vytvořit nové podnabídky řádek místní nabídky

Následující příklad přidá nové podnabídky, která se nazývá
NewSub v místní nabídce buňky listu:

Sub ShortcutSub_Create()   CommandBars("Cell").Controls.Add(Type:=msoControlPopup, before:=1) _
.Caption = "NewSub"
' This displays the shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates.
CommandBars("Cell").ShowPopup 200, 200
End Sub
Poznámka: Příkaz je prázdný, protože mu nebyly přidány žádné položky nabídky.

zpět na horní

Vytvořit ovládací prvek příkaz v podnabídce, který se nachází na panel místní nabídky

Následující makro přidá příkaz SubItem1 podnabídky NewSub vytvořena v místní nabídce buňky a potom spustí makro Code_SubItem1 po klepnutí na tlačítko SubItem1:
Sub ShortcutSub_AddItem()Dim newSubItem as Object
Set newSubItem = CommandBars("Cell").Controls("NewSub”)
With newSubItem
.Controls.Add(Type:=msoControlButton, before:=1).Caption = "subItem1"
' This will run the subItem1_Code macro when subItem1 is clicked.
.Controls("subItem1").OnAction = "Code_subItem1"
End With
' This displays the Cell shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates
CommandBars("Cell").ShowPopup 200, 200
End Sub

zpět na horní

Zakázání ovládacího prvku položku podnabídky v místní nabídce

Následující příklad kódu zakáže SubItem1 příkaz v podnabídce NewSub :
Sub ShortcutSub_DisableItem()   CommandBars("Cell").Controls("NewSub") _
.Controls("subItem1").Enabled = False
' This displays the Cell shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates.
CommandBars("Cell").ShowPopup 200, 200
End Sub
Poznámka: Chcete-li povolit zakázané položky, nastavte vlastnost zpřístupnit na hodnotu True.

zpět na horní

Odstranit v místní nabídce ovládacího prvku položku podnabídky

Následující příklad odstraní SubItem1 příkaz v podnabídce NewSub :
Sub ShortcutSub_DeleteItem()   CommandBars("Cell").Controls("NewSub").Controls("subItem1").Delete
' This displays the Cell shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates.
CommandBars("Cell").ShowPopup 200, 200
End Sub


zpět na horní

Zakázat ovládací prvek příkaz v místní nabídce

Následující příklad kódu zakáže NewSub podnabídce řádek místní nabídky buňky :
Sub ShortcutSub_DisableSub()   CommandBars("Cell").Controls("NewSub").Enabled = False
' This displays the Cell shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates.
CommandBars("Cell").ShowPopup 200, 200
End Sub
Poznámka: Chcete-li povolit zakázané položky, nastavte vlastnost zpřístupnit na hodnotu True.

zpět na horní

Odstranit ovládací prvek příkaz v místní nabídce

Následující příklad kódu odstraní podnabídky NewSub vytvořené na panelu nabídek místní buňky :
Sub ShortcutSub_DeleteSub()   CommandBars("Cell").Controls("NewSub").Delete
' This displays the Cell shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates.
CommandBars("Cell").ShowPopup 200, 200
End Sub


zpět na horní

Další informace naleznete

Následující zdroje jsou k dispozici další informace o přizpůsobení nabídek a panelů nabídek v aplikaci Excel.

zpět na horní

Prohlížeč objektů

Prohlížeč objektů obsahuje úplný seznam všech vlastností a všechny metody pro určitý příkaz. Chcete-li tyto informace najít, přepněte do editoru jazyka Visual Basic (stiskněte kombinaci kláves ALT + F11), klepněte na tlačítko Prohlížeč objektů v nabídce Zobrazit (nebo stiskněte klávesu F2), do vyhledávacího pole zadejte název ovládacího prvku a potom stiskněte klávesu ENTER nebo klepněte na tlačítko
Vyhledávání.

zpět na horní

Znalostní báze Microsoft Knowledge Base

Znalostní báze Microsoft Knowledge Base je primární zdroj informací produktu společnosti Microsoft pro pracovníky technické podpory Microsoft Product Support Services. Znalostní báze Microsoft Knowledge Base, je také k dispozici pro zákazníky společnosti Microsoft. Tato komplexní databáze obsahuje články podrobné technické informace o produktech společnosti Microsoft, zdokumentované opravy jsou uvedeny chyby dokumentaci a odpovědi na nejčastější dotazy týkající se technické podpory.

Připojit k znalostní báze Microsoft Knowledge Base, navštivte následující Web společnosti Microsoft a potom postupujte podle pokynů zobrazených na stránce:zpět na horní
Vlastnosti

ID článku: 830502 - Poslední kontrola: 12. 1. 2017 - Revize: 1

Váš názor