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

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

Tento článek popisuje, jak lze upravit nabídky a panely nabídek v aplikaci Microsoft Excel 2000 a novější. Tento článek obsahuje podrobné pokyny a ukázky kódu programově spravovat a vlastní panely nabídek, nabídky, příkazy podnabídek a místní nabídky v aplikaci Microsoft Excel.

ÚVOD

Mnoho běžných úkolů, které jsou přidruženy Přizpůsobení nabídek a nabídek v aplikaci Excel 2000 v aplikaci Microsoft Excel 2002 a v aplikaci Microsoft Office Excel 2003, použití Vlastní nastaveníDialogové okno. Provádět pokročilejší úlohy nebo přizpůsobit panely nabídek a nabídky pro vlastní program můžete chtít vytvořit jazyka Microsoft Visual Basic pro Kódy Applications (VBA).

Další informace o použití dialogového okna Vlastní Nápověda pro Microsoft Excel vNápověda Nabídka Typ vlastní nastavení panel nabídek do pomocníka Office nebo Průvodci odpověďmi a klepněte na tlačítko Hledání zobrazit téma.

Tento článek vám informace techniky psaní kódu jazyka VBA pro vlastní panely nabídek, nabídek, nabídek, podnabídek, a místní nabídky.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci bez žádné záruky výslovně uvedené nebo předpokládané. To zahrnuje, ale není omezen pouze na předpokládaných záruk 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 vysvětlit funkce určitého postupu, ale nemohou tyto příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků.

Příklady v tomto článku

Příklady v tomto článku použít kód VBA v aplikaci Excel 2000 v aplikaci Excel 2002 a v aplikaci Excel 2003 k přizpůsobení nabídek. Chcete-li použít příklad makra, postupujte Tyto kroky:
  1. Spuštění aplikace Excel.
  2. V Nástroje příkazMakroa klepněte na tlačítko Visual Basic Editor.
  3. V Vložit nabídky, klepněte na tlačítkoModul.
  4. Zadejte jeden z příkladů makra z tohoto článku, nebo Pomocí operace kopírování a vkládání můžete zkopírovat příklady makra na modul list.
  5. V Spustit nabídky, klepněte na tlačítko Spustit Formulář Sub/uživatele.
  6. Pokud Makro Zobrazí se dialogové okno, klepněte Název makra a klepněte na Spustit.

Panely příkazů

V Microsoft Office, panely nástrojů, panely nabídek a místní nabídky jsou všechny řízené programově jako jeden typ objektu: příkaz pruhy. Všechny následující položky jsou zastoupeny v jazyce VBA pomocí CommandBar objekty:
  • Nabídek, panelů nástrojů a místní nabídky.
  • Nabídky, panely nabídek a panelů nástrojů.
  • Podnabídky nabídek, podnabídek a místní nabídky.
Můžete upravit integrovaný 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. Prezentovat funkce programu jako jednotlivá tlačítka na panelech nástrojů nebo jako skupiny názvů příkazů v nabídkách. Protože panely nástrojů a nabídky jsou oba panely příkazů používat stejný druh Ovládací prvky.

V jazyce VBA a jazyka Microsoft Visual Basic, tlačítka a položky menu jsou reprezentovány CommandBarButton objekty. Rozbalovací ovládací prvky, které zobrazení nabídek a podnabídek reprezentované CommandBarPopup objekty. V následujících příkladech, ovládací prvek s názvem "Nabídka" a ovládací prvek s názvem "Podnabídky" jsou že oba rozbalovací ovládací prvky zobrazte nabídky a podnabídky. Jsou jedinečné nabídky a podnabídky CommandBar objekty s vlastní sadou ovládacích prvků.

V aplikaci Microsoft Aplikace Excel, panelů nabídek a panelů nástrojů jsou označovány jako stejné programovatelný objekt typ, CommandBar objekt. Použijte ovládací prvky v CommandBar objekt odkazuje nabídek, nabídek, podnabídek a zástupce nabídky. Použijete-li konstantu pro každý ovládací prvek Typ argument určuje typ řízení, které Chcete použít pro nabídky, podnabídky nebo příkaz.

Ovládací prvek konstanty

Následuje seznam různých konstant ovládacího prvku v aplikaci Excel 2003, které určují typ grafického ovládacího prvku pro konkrétní nabídka ovládací panel:
  • 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
*** = Novinka v aplikaci Microsoft Office Excel 2003

Řádky nabídek

Panel nabídek je druh panel příkazů. Panel nabídek je typu z objekt, kde přidat nabídky, položky nabídky a podnabídky.

Další informace informace o správě nabídek a položek nabídky v aplikaci Excel, postupujte kroky:
  1. Spuštění editoru jazyka Visual Basic.
  2. V Nápověda nabídky, klepněte na tlačítko Microsoft Nápověda pro Visual Basic.
  3. V Pomocník Office pole neboPrůvodce odpověďmi Typ pole Řádky nabídek, a Klepněte na tlačítko Hledání.
  4. V aplikaci Excel 2003 a v aplikaci Excel 2002, Přidání a Správa nabídek a položek nabídky. V aplikaci Excel 2000 klepněte na tlačítko O nabídky a panely nástrojů.
Můžete provádět změny v nabídce panelu a na Ovládací prvky na panelu nabídek, že v době běhu. Změny, které provedete v nabídce panel může ovlivnit vzhled nebo umístění panelu nabídek. Změny, které provádět kontroly závisí na typu ovládacího prvku. V následující tabulce je seznam nejběžnější vlastnosti a metody společné pro změnu stavu, Akce nebo obsah ovládacího prvku:
Zmenšit tuto tabulkuRozšířit tuto tabulku
Vlastnost nebo metodaÚčel
PřidatPřidá pomocí nabídek Přidat Metoda CommandBars objekt kolekce a zadáním hodnoty true pro Řádek nabídek argument.
PovolenoPokud Povoleno je-li vlastnost nastavena na hodnotu TRUE, můžete provést uživatel Zadaná nabídka panel zobrazen pomocí kódu jazyka Visual Basic. Pokud Povoleno je-li vlastnost nastavena na hodnotu FALSE, uživatel nemůže vytvořit nabídku panel je viditelný. Však nabídek zobrazí v seznamu dostupných příkazů. pruhy.
OchranaUmožňuje chránit nabídek z určitých uživatelských akcí.
PoziceUrčuje pozici vzhledem k nový panel nabídek okno programu. Umístění nabídek vzhledem k oknu aplikace může být jeden z následujících MsoBarPosition konstantní vlastnosti: 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 zobrazen ovládací prvek, nebo je skryté.

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

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

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

Následující příklad kódu vrací název aktivní nabídky panel:
Sub MenuBars_GetName()
   MsgBox CommandBars.ActiveMenuBar.Name
End Sub

Uložit aktivní stav (pro vestavěné nebo vlastní řádky nabídek)

Chcete deklarovat OriginalMenuBar Proměnná veřejné proměnné tak, aby podprogram lze používat v jiného podprogram, jako je například podprogram Auto_Close. Deklarování a použití Proměnná tímto způsobem obnovíte předchozí panel nabídek pro uživatele do původního stavu. Následující ukázkové makro obnoví nabídek:
Public OriginalMenuBar as Object

Sub MenuBars_Capture()
   Set OriginalMenuBar = CommandBars.ActiveMenuBar
End Sub

Vytvořit vlastní příkaz panel

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

Panel vlastních příkazů můžete vytvořit také pomocí Dočasné: = True argument. Na Dočasné: = True argument příkaz pruhů umožňuje automaticky Obnovte při ukončení aplikace Excel. Následující kód používá Dočasné: = True vytvořit vlastní příkaz panel argument:
Sub MenuBar_Create()
Application.CommandBars.Add Name:="My command bar", Temporary:=True
End Sub

Zobrazit panel vlastní příkaz

Následující příklad vytvoří a zobrazí vlastní Moje Vlastní panel 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

Odstranění vlastního příkazu panelu

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

Skrýt panel příkazů

Následující příklad odebere integrovaná Graf panel nabídek ze seznamu dostupných nabídek:
Sub MenuBar_Display()
   CommandBars("Chart").Enabled = False
End Sub

Zobrazení panelu příkazů

Následující příklad přidá integrovaná Graf panel nabídek ze seznamu dostupných nabídek:
Sub MenuBar_Display()
   CommandBars("Chart").Enabled = True
End Sub

Panel integrovaný příkaz Obnovit

Obnovení nabídek obnoví nastavení výchozích ovládacích prvků (pro obě nabídky a položky nabídky). Následující příklad kódu obnoví integrovaná Graf panel nabídek:
Sub MenuBar_Restore()
   CommandBars("Chart").Reset
End Sub
Poznámka: Obnovit můžete pouze předdefinované panely nabídek. Nelze obnovit vlastní panel nabídek.

Nabídky

Obnovení nabídek obnoví nastavení výchozích ovládacích prvků (pro obě nabídky a položky nabídky). Následující příklad kódu obnoví integrovaná Graf panel nabídek:

Sub MenuBar_Restore()
   CommandBars("Chart").Reset
End Sub
Poznámka: Obnovit můžete pouze předdefinované panely nabídek. Nelze obnovit vlastní panel nabídek.

Přidat vlastní nabídky ovládacího panelu příkazů

Následující příklad přidá název nabídky, který přidáte programově na List panel nabídek. To například kód přidá název nabídky Nová nabídka na na List panel nabídek.

Poznámka: V této nabídce můžete poskytnout požadovaný název.
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

Zakázání ovládacího panelu příkazů nabídky

Prvek nabídky, které je zakázáno zobrazeno šedě a není k dispozici v příkazovém řádku. Následující příklad vypne Nový Nabídka nabídka:
Sub Menu_Disable()
   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = False
End Sub

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

Následující příklad kódu umožňuje Nová nabídka nabídky, který jste zakázali v "Zakázat Ovládací nabídka na příkazový řádek"oddíl:
Sub Menu_Disable()
   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = True
End Sub

Odstranění ovládacího prvku nabídky na panelu příkazů

Následující kód například odstraní Nová nabídkanabídka, kterou jste vytvořili v "přidat vlastní nabídku ovládacího panelu příkazů" z části List panel nabídek:
Sub Menu_Delete()
   CommandBars("Worksheet menu bar").Controls("New &Menu").Delete
End Sub

Obnovení ovládacího panelu příkazů nabídky

Následující příklad kódu obnoví integrovaná Graf na panelu nabídek List panel nabídek:
Sub Menu_Restore()
Dim myMnu As Object
   Set myMnu = CommandBars("Chart")
   myMnu.Reset
End Sub

Příkazy

Závisí na rozsahu změn, které můžete provést příkaz na typ ovládacího prvku. Obecně tlačítka buď jsou povoleny nebo skryty. Upravit políčka, rozevírací seznamy a pole se seznamem jsou univerzálnější, můžete Přidat nebo odstranit položky ze seznamu. Navíc můžete určit akce který provádí hodnoty zboží, které jste vybrali v seznamu. Můžete změnit akce ovládacího prvku do integrované funkce nebo na vlastní funkce.

V následující tabulce jsou uvedeny nejběžnější vlastnosti ovládacího prvku a metod pro změnu stavu, akce, nebo obsah ovládacího prvku:
Zmenšit tuto tabulkuRozšířit tuto tabulku
Vlastnost nebo metodaÚčel
PřidatPřidá příkaz na příkazovém řádku.
AddItemPřidá položku do části rozevíracího seznamu rozevírací rozevírací seznam nebo pole se seznamem.
StylUrčuje, zda vzhled tlačítka zobrazena ikona nebo Titulek.
OnActionPostup spuštění, pokud uživatel změní hodnota ovládacího prvku.
ViditelnéUrčuje, zda je zobrazen ovládací prvek, nebo je skryté.

Další informace o nabídkách v aplikaci Excel 2003 a v Aplikace Excel 2002, postupujte takto:
  1. Spuštění editoru jazyka Visual Basic.
  2. V Nápověda nabídky, klepněte na tlačítko Microsoft Nápověda pro Visual Basic.
  3. V Hledat nápovědu Typ polenabídky, a pak stiskněte klávesu ENTER.
  4. Klepněte na tlačítko Přidání a správa nabídek a položek nabídky (Systému office).

Přidat oddělovač na ovládací prvek nabídky

Následující příklad přidá oddělovač panelu před List příkaz v Vložit nabídka:
Sub menuItem_AddSeparator()
   CommandBars("Worksheet menu bar").Controls("Insert") _
   .Controls("Worksheet").BeginGroup = True
End Sub
Poznámka: Chcete-li odstranit oddělovač, nastavte BeginGroup Vlastnost NEPRAVDA.

Vytvořit ovládací prvek vlastní příkaz v nabídce

Následující kód například vytvoří nový příkaz s názvem 1 v Nástroje nabídka List panel nabídek a potom spustí Code_Custom1 makro, které po klepnutí 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

Zaškrtnutí vedle příkazu ovládacího prvku

Následující příklad kódu vloží zaškrtnutí vedle 1 příkaz, pokud není vybrána a potom zrušíte zaškrtnutí, pokud na 1 je-li vybrán příkaz:
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

Zakázání ovládacího prvku v příkazovém řádku příkaz

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

Povolit ovládací prvek v příkazovém řádku příkaz

Následující příklad kódu umožňuje 1 příkaz, který jste zakázali v "Zakázání ovládacího prvku příkaz na příkazový řádek"oddíl:
Sub MenuItem_Enable()
Dim myCmd as Object
   Set myCmd = CommandBars("Worksheet menu bar").Controls("Tools")
   myCmd.Controls("Custom1").Enabled = True
End Sub

Odstranění ovládacího prvku příkazu nabídky

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

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

Ovládací prvek příkazu nabídky obnovit, je nutné znát číslo identifikace (ID) pro ovládací prvek. Číslo ID naleznete "Vrátí Identifikátor ovládacího panelu příkaz" části. Následující příklad odstraní a pak obnoví Uložit příkaz, který jste odstranili v Oddíl "Odstranění ovládacího prvku příkazu v nabídce":
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

Podnabídky

Podnabídek zobrazen vedle nadřazených nabídky po klepnutí příkaz. Příkaz podnabídky ovládací prvek má malá černá šipka, která je nachází se na pravém konci názvu příkazu.

Přidat podnabídku

Následující příklad přidá nové podnabídky s názvem NewSub aby Nástroje nabídka na List panel nabídek:
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

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

Následující příklad přidá nový příkaz s názvem SubItem1 aby NewSub podnabídky a pak Spustí Code_SubItem1 makro, které po klepnutí 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

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

Následující příklad kódu zakáže stejné Podpoložku příkaz, který jste vytvořili v "přidat příkaz podnabídky" oddíl:

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

Odstranit příkaz z podnabídky

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

Zakázání ovládacího prvku podnabídky

Následující příklad kódu zakáže NewSubpodnabídku, kterou jste vytvořili v Nástroje v nabídce "přidat části podnabídky":
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 Povoleno Vlastnost PRAVDA.

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

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

Místní nabídek

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

Další informace o místních nabídek v aplikaci Excel 2002 a v aplikaci Excel 2003, postupujte takto:
  1. Spuštění editoru jazyka Visual Basic.
  2. V Nápověda nabídky, klepněte na tlačítko Microsoft Nápověda pro Visual Basic.
  3. V Hledat nápovědu Typ polezástupce, a pak stiskněte klávesu ENTER.
  4. Klepněte na tlačítko Přidání a zobrazení zástupců Nabídky.

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

Následující kód například 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 žádné ovládací prvky (nabídka do ní byly přidány položky nebo podnabídek).

Místní nabídky

Pomocí pravého tlačítka myši na se zobrazí místní nabídka pruhy Klepněte na určitý objekt aplikace Excel. Aplikace Excel obsahuje mnoho místní nabídek pro kterou jsou k dispozici různé nabídky. Můžete také vytvořit vlastní místní nabídek a vlastní nastavení předdefinovaných nabídek.

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

Následující kód například vytvoří nový příkaz nabídky, který je s názvem Položka1 v myShortcutBar Řádek místní nabídky a Spustí Code_Item1 makro, které po klepnutí 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

Zakázání ovládacího prvku příkaz na panel místní nabídky

Následující příklad kódu zakáže Položka1 příkaz, který jste vytvořili v "vytvořit příkaz na zástupce nabídka"oddíl:
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 Povoleno Vlastnost PRAVDA.

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

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

Odstranit řádek místní nabídky

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

Odstraní následující příklad kódu na myShortCutBar Řádek místní nabídky, kterou jste vytvořili v "Vytvořit příkaz na panel místní nabídky" oddíl:
Sub Shortcut_DeleteShortCutBar()
   CommandBars("MyShortCutBar").Delete
End Sub

Obnovit příkaz na integrovaných místních nabídek

Následující příklad kódu obnoví na výchozí příkazy list Buňka Řádek místní nabídky:
Sub Shortcut_RestoreItem()
   CommandBars("Cell").Reset
End Sub

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

Podnabídku můžete vytvořit na zástupce nabídek. Zdánlivě podnabídek na straně nadřazené nabídky po klepnutí na příkaz Ovládací prvek. Příkaz, který je má ovládací prvek podnabídky malé, černá šipka, která je umístěna napravo od jeho název.

Vytvořit nové podnabídky na panel místní nabídky

Následující příklad přidá nové podnabídky s názvem NewSub na listu Buňka místní nabídky:
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: V podnabídce je prázdný, protože nebyly přidány žádné položky nabídky na ji.

Vytvoření ovládacího prvku příkaz podnabídky, která je umístěna na panel místní nabídky

Následující makro přidá SubItem1 příkaz podnabídky NewSub vytvořený v Buňka místní nabídku a spustí Code_SubItem1 makro, které po klepnutí 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

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 NewSub podnabídky:
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 Povoleno Vlastnost PRAVDA.

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

Následující příklad odstraní SubItem1 příkaz v NewSub podnabídky:
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

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

Následující příklad kódu zakáže NewSubpodnabídce Buňka Řádek místní nabídky:
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 Povoleno Vlastnost PRAVDA.

Odstranění ovládacího prvku podnabídky v místní nabídce

Následující příklad kódu odstraní NewSubpodnabídku, kterou jste vytvořili v Buňka Řádek místní nabídky:
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

Další informace

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

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 Klepněte na příkaz Editor jazyka Visual Basic (stiskněte kombinaci kláves ALT + F11), Prohlížeč objektův Zobrazení nabídky (nebo stiskněte F2) zadejte název ovládacího prvku v Hledání pole a potom stiskněte klávesu ENTER nebo klepněte na tlačítko Hledání.

Znalostní báze Microsoft Knowledge Base:

Znalostní báze Microsoft Knowledge Base je primární produkt společnosti Microsoft zdroj informací pro podporu Microsoft Product Support Services Odborníci v oblasti IT. Znalostní báze Microsoft Knowledge Base je také k dispozici společnosti Microsoft Zákazníci. Tato komplexní databáze obsahuje podrobné články s technické informace o produktech společnosti Microsoft, seznamy zdokumentované opravy, chyby v dokumentaci a odpovědi na nejčastější technické podpory otázky.

Chcete-li připojit k znalostní báze Microsoft Knowledge Base, navštivte Následující Web společnosti Microsoft a postupujte podle pokynů na stránka:
http://support.microsoft.com

Vlastnosti

ID článku: 830502 - Poslední aktualizace: 22. května 2011 - Revize: 6.0
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
Klíčová slova: 
kbhowtomaster kbmt KB830502 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:830502

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