Como personalizar menus e barras de menus do Excel

Traduções de Artigos Traduções de Artigos
Artigo: 830502 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo descreve como personalizar menus e barras de menus no Microsoft Excel 2000 e versões posteriores. Este artigo contém instruções passo a passo e exemplos de código para gerir e personalizar barras de menus, menus, comandos, submenus e menus de atalho no Microsoft Excel através de programação

INTRODUÇÃO

Para efectuar muitas das tarefas comuns que estão associadas personalizar barras de menus e menus no Microsoft Excel 2000, no Microsoft Excel 2002 e no Microsoft Office Excel 2003, utilize o Personalizar caixa de diálogo. Para executar mais tarefas avançadas ou, para personalizar as barras de menus e menus para um programa personalizado, pode pretender criar Microsoft Visual Basic para códigos de Applications (VBA).

Para obter mais informações sobre como utilizar a caixa de diálogo Personalizar, clique em Ajuda do Microsoft Excel no menu Ajuda , escreva o Personalizar barra de menus no Assistente do Office ou no Assistente de respostas e, em seguida, clique em Procurar para visualizar o tópico.

Este artigo pode ajudá-lo Aprenda técnicas para escrever código VBA para personalizar as barras de menus, menus, itens de menu, submenus e menus de atalho.

Mais Informação

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Exemplos deste artigo

Os exemplos neste artigo utilizam código VBA no Excel 2000, no Excel 2002 e no Excel 2003 para personalizar menus. Para utilizar as macros de exemplo, siga estes passos:
  1. Inicie o Excel.
  2. No menu Ferramentas , aponte para macro e, em seguida, clique em Editor do Visual Basic .
  3. No menu Inserir , clique em módulo .
  4. Escreva um dos exemplos de macros a partir deste artigo ou pode utilizar uma operação de copiar e colar para copiar os exemplos de macro para uma folha de módulo.
  5. No menu Run , clique em Run Sub/utilizador formulário .
  6. Se for apresentada a caixa de diálogo macro , clique no nome da macro e, em seguida, clique em Executar .

Barras de comandos

No Microsoft Office, as barras de ferramentas, barras de menus e atalho menus são todos os controlados programaticamente como um tipo de objecto: barras de comandos. Os seguintes itens são representados no Visual Basic for Applications pelos objectos de CommandBar :
  • Barras de menus, barras de ferramentas e menus de atalho.
  • Menus em barras de menus e barras de ferramentas.
  • Submenus nos menus, submenus e menus de atalho.
Pode modificar qualquer barra de menus incorporada ou de qualquer barra de ferramentas incorporada e pode criar e modificar as barras de ferramentas personalizadas, as barras de menus e menus de atalho para entregar com o código VBA. Apresentar as funcionalidades do programa como individuais botões nas barras de ferramentas ou como grupos de nomes de comandos nos menus. Uma vez que as barras de ferramentas e menus são ambas as barras de comandos, utiliza o mesmo tipo de controlos.

No Visual Basic for Applications e no Microsoft Visual Basic, botões e itens de menu são representados por CommandBarButton objectos. Os controlos de janelas de pop-up que apresentem menus e submenus são representados por CommandBarPopup objectos. Nos exemplos seguintes, o controlo com o nome "Menu" e o controlo com o nome "Submenu" são ambos os controlos de contexto que apresentam um menu e um submenu. O menu e submenu são objectos de CommandBar exclusivos com seu próprio conjunto de controlos.

No Microsoft Excel, as barras de menus e barras de ferramentas são referidas como o mesmo tipo de objecto programáveis, o objecto de CommandBar . Utilize os controlos no objecto de CommandBar para fazer referência a menus, itens de menus, submenus e menus de atalho. Utilizar uma constante com cada controlo no argumento tipo de para especificar o tipo de controlo pretende utilizar para o menu, submenu ou o comando.

Constantes de controlo

Segue-se uma lista das várias controlo constantes no Excel 2003 que especificam o tipo de controlo de gráfico a utilizar para um controlo de barra de menu específico:
  • 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 **
* Novo = no Microsoft Excel 2000
** Novo = no Microsoft Excel 2002
*** Novo = no Microsoft Office Excel 2003

Barras de menus

Uma barra de menus é um tipo de barra de comandos. Uma barra de menus é o tipo de objecto onde adicionar menus, itens de menus e submenus.

Para mais informações sobre como gerir as barras de menus e itens de menu no Excel, siga estes passos:
  1. Inicie o Editor do Visual Basic do Microsoft.
  2. No menu Ajuda , clique em Ajuda do Microsoft Visual Basic .
  3. Na caixa Do Assistente do Office ou na caixa Assistente de respostas , escreva as barras de menu e, em seguida, clique em Procurar .
  4. No Excel 2003 e no Excel 2002, clique em Adicionar e gerir barras de menus e itens de menu . No Excel 2000, clique em Acerca de menus e barras de ferramentas .
Pode efectuar modificações à barra de menus e aos controlos que barra de menu em tempo de execução. As alterações que fizer à barra de menus podem afectar o aspecto ou a posição da barra de menus. As alterações efectuadas aos controlos dependem do tipo de controlo. A tabela seguinte lista as propriedades mais comuns e os métodos comuns para alterar o estado, a acção ou o conteúdo de um controlo:
Reduzir esta tabelaExpandir esta tabela
Propriedade ou métodoObjectivo
Adicionar Adiciona uma barra de menu utilizando o método Add da colecção de objecto CommandBars e especificando o valor de TRUE para o argumento barra menu .
activado Se a propriedade enabled estiver definida para o valor for TRUE, o utilizador pode efectuar barra de menu especificado visível utilizando código do Visual Basic. Se a propriedade activado estiver definida para o valor for FALSE, o utilizador não é possível tornar a barra de menus visível. No entanto, a barra de menus vai aparecer na lista de barras de comandos disponíveis.
protecção Possibilita a proteger a barra de menus de acções do utilizador específico.
posição Especifica a posição da barra de menu novo relativo para a janela do programa. A posição da barra de menu relativo para a janela do programa pode ser uma as seguintes propriedades constantes MsoBarPosition : msoBarLeft , msoBarTop , msoBarRight , msoBarBottom , msoBarFloating , msoBarPopup (utilizado para criar menus de atalho) ou msoBarMenuBar (apenas para utilização com o Apple Macintosh).
visível Especifica se o controlo está visível ou está oculto.

Devolver um ID de um controlo de barra de comandos

O seguinte código de exemplo devolve o ID de barra de menus activa:
Sub Id_Control ()
Dim myId as Object
   set myId = CommandBars("Worksheet Menu Bar").Controls("Tools")
   MsgBox myId.Caption & Chr(13) & MyId.Id
End Sub

Determinar o nome da barra de menus activa

O seguinte código de exemplo devolve o nome de barra de menus activa:
Sub MenuBars_GetName()
   MsgBox CommandBars.ActiveMenuBar.Name
End Sub

Guardar o estado activo (para incorporada ou para barras de menus personalizada)

É aconselhável declarar a variável OriginalMenuBar uma variável pública para que uma subrotina possa utilizar no outro sub-rotina, tais como uma subrotina Auto_Close. Declarando e utilizando a variável desta forma repõe a barra de menu anterior do utilizador ao estado original. A seguinte macro de exemplo repõe a barra de menus:
Public OriginalMenuBar as Object

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

Criar uma barra de comando personalizado

O código de exemplo seguinte cria uma barra de comando personalizado que chama a Minha barra de comandos :
Sub MenuBar_Create() Application.CommandBars.Add Name:="My command bar" End Sub

Também pode criar uma barra de comando personalizado utilizando o temporários: = TRUE argumento. O temporários: = TRUE argumento permite que as barras de comandos para ser reposto automaticamente quando sai do Excel. O seguinte código utiliza a temporários: = TRUE argumento para criar uma barra de comando personalizado:
Sub MenuBar_Create()
Application.CommandBars.Add Name:="My command bar", Temporary:=True
End Sub

Apresentar uma barra de comando personalizado

O exemplo seguinte cria e apresenta uma barra de menu Barra de personalizar os meus personalizada e, em seguida, substitui a barra de menus incorporada:
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

Eliminar uma barra de comando personalizado

O seguinte código de exemplo elimina a barra de menu personalizado que chama personalizado 1 :
Sub MenuBar_Delete()
   CommandBars("Custom1").Delete
End Sub

Ocultar uma barra de comandos

O código de exemplo seguinte remove da lista de barras de menus disponíveis barra de menus incorporada do gráfico :
Sub MenuBar_Display()
   CommandBars("Chart").Enabled = False
End Sub

Apresentar uma barra de comandos

O código de exemplo seguinte adiciona a barra de menus incorporada do gráfico da lista de barras de menus disponíveis:
Sub MenuBar_Display()
   CommandBars("Chart").Enabled = True
End Sub

Restaurar uma barra de comando incorporado

Restaurar uma barra de menus repõe os controlos de predefinição (para menus e itens de menu). O seguinte código exemplo restaura a barra de menus incorporada do gráfico :
Sub MenuBar_Restore()
   CommandBars("Chart").Reset
End Sub
Nota Só é possível repor barras de menus incorporada. Não pode repor uma barra de menu personalizado.

Menus

Restaurar uma barra de menus repõe os controlos de predefinição (para menus e itens de menu). O seguinte código exemplo restaura a barra de menus incorporada do gráfico :

Sub MenuBar_Restore()
   CommandBars("Chart").Reset
End Sub
NOTA: só é possível repor barras de menus incorporada. Não pode repor uma barra de menu personalizado.

Adicionar um controlo menu personalizado a uma barra de comandos

O código de exemplo seguinte adiciona o nome de um menu que adicionar programaticamente a barra de menus folha de cálculo . Por exemplo, este código adiciona o menu nome do Novo Menu para à barra de menu da folha de cálculo .

Nota É possível atribuir qualquer nome que pretende que este menu.
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

Desactivar um controlo de menu numa barra de comandos

Um controlo de menu que está desactivado aparece esbatido e não está disponível na barra de comandos. O seguinte exemplo desactiva o menu Novo Menu :
Sub Menu_Disable()
   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = False
End Sub

Activar um controlo de menu numa barra de comandos

O código de exemplo que se segue permite menu Novo Menu desactivado na secção "Desactivar um controlo de menu de uma barra de comandos":
Sub Menu_Disable()
   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = True
End Sub

Eliminar um controlo de menu numa barra de comandos

O exemplo de código seguinte elimina o Novo Menu menu que criou na secção 'Adicionar um controlo de menu personalizado à barra de comandos' da barra de menu de folha de cálculo :
Sub Menu_Delete()
   CommandBars("Worksheet menu bar").Controls("New &Menu").Delete
End Sub

Restaurar um controlo de menu de uma barra de comandos

O código de exemplo que se segue restaura a barra de menu gráfico incorporada na barra de menu de folha de cálculo :
Sub Menu_Restore()
Dim myMnu As Object
   Set myMnu = CommandBars("Chart")
   myMnu.Reset
End Sub

Comandos

O intervalo das modificações que pode efectuar a um comando depende do tipo de controlo. Geralmente, botões ou estão activados ou estão ocultos. Caixas de edição, caixas de listagem pendente e combinação caixas são mais versátil que pode adicionar ou eliminar itens da lista. Além disso, pode determinar a acção que é efectuada observando o valor dos produtos que seleccionou da lista. Pode alterar a acção de qualquer controlo para uma função incorporada ou para uma função personalizada.

A tabela seguinte lista as propriedades de um controlo e os métodos para alterar o estado, a acção ou o conteúdo de um controlo mais comuns:
Reduzir esta tabelaExpandir esta tabela
Propriedade ou métodoObjectivo
Adicionar Adiciona um comando a uma barra de comandos.
AddItem Adiciona um item à parte da lista pendente de uma caixa de listagem pendente ou de uma caixa de combinação.
estilo Especifica se a face do botão apresenta um ícone ou uma legenda.
OnAction Especifica o procedimento para executar quando o utilizador altera o valor do controlo.
visível Especifica se o controlo está visível ou está oculto.

Para obter mais informações sobre menus no Excel 2003 e no Excel 2002, siga estes passos:
  1. Inicie o Editor de scripts do Visual Basic.
  2. No menu Ajuda , clique em Ajuda do Microsoft Visual Basic .
  3. Na caixa Procurar na ajuda , escreva menus e, em seguida, prima ENTER.
  4. Clique em Adicionar e gerir barras de menus e itens de menu (Office) .

Adicionar uma barra separadora a um controlo de menu

O seguinte código de exemplo adiciona uma barra separadora antes do comando de folha de cálculo , no menu Inserir :
Sub menuItem_AddSeparator()
   CommandBars("Worksheet menu bar").Controls("Insert") _
   .Controls("Worksheet").BeginGroup = True
End Sub
Nota Para remover uma barra separadora, defina a propriedade BeginGroup como Falso .

Criar um controlo personalizado comandos num menu

O código de exemplo seguinte cria um novo comando com o nome Personalizado1 no menu Ferramentas da barra de menu da folha de cálculo e, em seguida, executa a macro de Code_Custom1 quando clica Personalizado1 :
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

Colocar uma marca de verificação junto a um controlo de comando

O seguinte código exemplo coloca uma marca de verificação junto do comando de Personalizado1 se este não está seleccionada e, em seguida, remove a marca de verificação se o comando Personalizado1 estiver seleccionado:
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

Desactivar um controlo de comando numa barra de comandos

O seguinte código exemplo desactiva o comando Personalizado1 que criou no menu Ferramentas na secção "Criar um controlo personalizado comando num menu":
Sub MenuItem_Disable()
Dim myCmd as Object
   Set myCmd = CommandBars("Worksheet menu bar").Controls("Tools")
   myCmd.Controls("Custom1").Enabled = False
End Sub

Activar um controlo de comando numa barra de comandos

O código de exemplo seguinte activa o comando Personalizado1 que desactivado na secção "Desactivar um controlo comando numa barra de comandos":
Sub MenuItem_Enable()
Dim myCmd as Object
   Set myCmd = CommandBars("Worksheet menu bar").Controls("Tools")
   myCmd.Controls("Custom1").Enabled = True
End Sub

Eliminar um controlo de comando num menu

Eliminações de código exemplo seguintes comandos no menu ficheiro a Guardar :
Sub menuItem_Delete()
Dim myCmd As Object
   Set myCmd = CommandBars("Worksheet menu bar").Controls("File")
   myCmd.Controls("Save").Delete
End Sub

Restaurar um controlo comando incorporado num menu

Para restaurar um controlo num menu de comando, tem de saber o número de identificação (ID) para o controlo. Para determinar o número de ID, consulte a secção "Voltar um ID de um controlo de barra de comandos". O seguinte exemplo elimina e, em seguida, restaura a Guardar comando que foi eliminada na secção "Eliminar um controlo num menu de comando":
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

Submenus

Submenus aparecem ao lado do menu principal quando clicar num comando. Um comando que é um controlo de submenu tem uma pequena seta preta que está localizada na extremidade direita do nome do comando.

Adicionar um submenu

O seguinte código de exemplo adiciona um novo submenu chama NewSub ao menu Ferramentas na barra de menu de folha de cálculo :
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

Adicionar um comando a um submenu

O seguinte código de exemplo adiciona um novo comando chama SubItem1 ao submenu NewSub e, em seguida, executa a macro Code_SubItem1 quando clica 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

Desactivar um controlo de comandos num submenu

O seguinte código exemplo desactiva o comando SubItem mesmo que criou na secção 'Adicionar um comando a um submenu':

Sub SubMenu_DisableItem()
   CommandBars("Worksheet menu bar").Controls("Tools") _
   .Controls("NewSub").Controls("SubItem1").Enabled = False
End Sub


O exemplo seguinte activa o comando SubItem mesmo:
Sub SubMenu_DisableItem()
   CommandBars("Worksheet menu bar").Controls("Tools") _
   .Controls("NewSub").Controls("SubItem1").Enabled = True
End Sub

Eliminar um comando num submenu

O seguinte exemplo elimina o comando SubItem1 que criou no submenu NewSub na secção "Adicionar um comando a um submenu":
Sub SubMenu_DeleteItem()
   CommandBars("Worksheet menu bar").Controls("Tools") _
   .Controls("NewSub").Controls("SubItem1").Delete
End Sub

Desactivar um controlo de submenu

O seguinte código de exemplo desactiva o NewSub submenu que criou no menu Ferramentas na secção 'Adicionar um submenu':
Sub SubMenu_DisableSub()
   CommandBars("Worksheet menu bar").Controls("Tools") _
   .Controls("NewSub").Enabled = False
End Sub
Nota Para activar o controlo desactivado, defina a propriedade activado como true .

Eliminar um controlo de submenu

O seguinte código de exemplo elimina o NewSub submenu que criou no menu Ferramentas na secção 'Adicionar um submenu':
Sub SubMenu_DeleteSub()
   CommandBars("Worksheet menu bar").Controls("Tools") _
   .Controls("NewSub").Delete
End Sub

Barras de menus de atalho

Um menu de atalho é uma barra de comando flutuante que aparece quando o utilizador clica com o botão direito do rato um objecto. Uma barra de menu de atalho pode conter os mesmos tipos de controlo como uma barra de comandos e controlos se comportam o mesmo que os controlos na barra de comandos. Não é possível criar ou modificar os menus de atalho da interface do programa na maioria dos programas. Por este motivo, tem de criar e modificar os menus de atalho em tempo de execução.

Para obter mais informações sobre menus de atalho no Excel 2002 e no Excel 2003, siga estes passos:
  1. Inicie o Editor de scripts do Visual Basic.
  2. No menu Ajuda , clique em Ajuda do Microsoft Visual Basic .
  3. Na caixa Procurar na ajuda , escreva atalho e, em seguida, prima ENTER.
  4. Clique em Adicionar e visualizar atalhos menus .

Criar uma nova barra de menu de atalho

O código de exemplo seguinte cria uma nova barra de menus atalho denominado 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

Nota A barra de menu atalho aparece vazia porque existem controlos (itens de menu ou submenus) foram adicionados ao mesmo.

Menus de atalho

Barras de menus de atalho aparecem quando utilizar o botão direito do rato para clique num objecto específico do Excel. O Excel tem muitas barras de menus atalho para o qual está disponível uma variedade de menus. Também pode criar barras de menu de atalho personalizados e personalizar as barras de menus incorporada.

Criar um comando numa barra de menu de atalho

O código de exemplo seguinte cria um novo comando de menu com o nome Item1 na barra de menus de atalho myShortcutBar e executa a macro Code_Item1 quando clica Item1 :
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

Desactivar um controlo de comando numa barra de menu de atalho

O seguinte código exemplo desactiva o comando Item1 que criou na secção "Criar um comando num menu de atalho":
Sub Shortcut_DisableItem()
   Set myBar = CommandBars("myShortcutBar")
   myBar.Controls("Item1").Enabled = False
   myBar.ShowPopup 200,200
End Sub
Nota Para activar o item desactivado, defina a propriedade activado como true .

Eliminar um comando numa barra de menu de atalho

O seguinte código de exemplo elimina o comando de menu que chama Item1 na barra de menu de atalho myShortcutBar :
Sub Shortcut_DeleteItem()
   Set myBar = CommandBars("myShortcutBar")
   myBar.Controls("Item1").Delete
   myBar.ShowPopup 200,200
End Sub

Eliminar uma barra de menu de atalho

Barra de menus de atalho a eliminação remove todos os itens. Não pode restaurar uma barra de menu personalizado eliminado. Para restaurar, tem de recriar-todos os itens de menu e os submenus.

O seguinte código de exemplo elimina a barra de menu de atalho myShortCutBar que criou na secção "Criar um comando numa barra de menu de atalho":
Sub Shortcut_DeleteShortCutBar()
   CommandBars("MyShortCutBar").Delete
End Sub

Restaurar um comando numa barra de menu de atalho incorporado

O código de exemplo seguinte repõe os comandos predefinidos na barra de menu de atalho de célula de folha de cálculo:
Sub Shortcut_RestoreItem()
   CommandBars("Cell").Reset
End Sub

Submenus nos menus de atalho

Pode criar submenus no atalho barras de menus. Submenus aparecem ao lado do menu principal quando clica num controlo de comandos. Um comando que é um controlo de submenu tiver uma seta pequena, preta que se encontra à direita do respectivo nome.

Criar um novo submenu na barra de menus de atalho

O exemplo seguinte adiciona um novo submenu denominado NewSub no menu de atalho célula de folha de cálculo:
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
Nota O submenu está vazio porque não existem itens de menu foram adicionadas ao mesmo.

Criar um controlo comandos num submenu que se encontra numa barra de menu de atalho

A seguinte macro adiciona o comando SubItem1 para o submenu NewSub que criou no menu de atalho célula e, em seguida, executa a macro de Code_SubItem1 quando clica 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

Desactivar um controlo de item de submenu num menu de atalho

O seguinte código exemplo desactiva o comando SubItem1 no submenu 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
Nota Para activar um item desactivado, defina a propriedade activado como true .

Eliminar um controlo de item de submenu num menu de atalho

No seguinte exemplo elimina o comando SubItem1 no submenu 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

Desactivar um controlo de submenu num menu de atalho

O seguinte código de exemplo desactiva o NewSub submenu na barra de menu de atalho célula :
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
Nota Para activar um item desactivado, defina a propriedade activado como true .

Eliminar um controlo de submenu num menu de atalho

O seguinte código de exemplo elimina o NewSub submenu que criou na barra de menu de atalho célula :
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

Obter mais informações

Os seguintes recursos estão disponíveis para fornecer mais informações sobre como personalizar menus e barras de menus do Excel.

Localizador de objectos

O Object Browser contém uma lista completa de todas as propriedades e todos os métodos para um comando específico. Para localizar estas informações, mude para o Visual Basic Editor (prima ALT+F11), faça clique sobre Localizador de objectos , no menu Ver (ou prima F2), escreva o nome do controlo na caixa de procura e, em seguida, prima ENTER ou clique em Procurar .

Da base de dados de conhecimento da Microsoft

Base de dados de conhecimento é uma origem primária de informações de produto Microsoft para profissionais de suporte do suporte técnico da Microsoft. A base de dados de conhecimento da Microsoft também está disponível para a Microsoft os clientes. Esta base de dados completa contém artigos detalhados com informações técnicas sobre produtos da Microsoft, correcção documentada lista erros da documentação e respostas a perguntas mais frequentes de suporte técnico.

Para ligar à base de dados de conhecimento da Microsoft, visite o seguinte Web site da Microsoft e, em seguida, siga as instruções que aparecem na página:
http://support.microsoft.com

Propriedades

Artigo: 830502 - Última revisão: 11 de janeiro de 2006 - Revisão: 4.3
A informação contida neste artigo aplica-se a:
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
Palavras-chave: 
kbmt kbhowtomaster KB830502 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 830502

Submeter comentários

 

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