XL2000: Macros de exemplo para personalizar menus e submenus

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

Nesta página

Sumário

No Microsoft Excel 2000, as barras de ferramentas, barras de menus e menus de atalho são considerados um único tipo de objecto, denominada uma barra de comandos. Este comportamento é diferente de versões do Excel anteriores ao Excel 97. Embora a maior parte dos Visual Basic para as macros que cria em versões anteriores do Excel que personalizar menus e barras de ferramentas trabalhar no Excel 2000, alguns poderão falhar. Se isto acontecer, modificar o código de macro para trabalhar com o novo tipo de objecto.

Este artigo fornece vários exemplos que ilustram como personalizar barras de menus, menus e barras de ferramentas do Microsoft Excel 2000.

Nota : muitos as macros de exemplo neste artigo utilizar o número de IDENTIFICAÇÃO para um determinado controlo como um argumento para o método Add . O número de ID tem de saber se pretender restaurar menus incorporados que foi eliminada.

Para obter uma lista de números de IDENTIFICAÇÃO atribuídos a controlos da barra de comando incorporado, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
213552XL2000: Lista de números de ID de controlos da barra de comandos Built-In

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.

Eliminar uma barra de menus inteiro

A seguinte macro desactiva a barra de menus folha de cálculo. Depois de executar a macro seguinte, a barra de menus não é apresentada quando uma folha de cálculo está activa.
Sub Disable_Menu_Bar()
    CommandBars("Worksheet Menu Bar").Enabled = False
End Sub
				
a seguinte macro permite novamente a barra de menus folha de cálculo para que seja apresentado quando uma folha de cálculo está activa.
Sub Enable_Menu_Bar()
    CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
				

Eliminar e restaurar um menu na barra de menus

A seguinte macro elimina o menu Ajuda da barra de menus de folha de cálculo.
Sub Delete_Help_Menu()
    CommandBars("Worksheet Menu Bar").Controls("Help").Delete
End Sub
				
a seguinte macro restaura o menu Ajuda para a barra de menus folha de cálculo.
Sub Restore_Help_Menu()
    set x = CommandBars("Worksheet Menu Bar")
    x.Reset
End Sub
				
Nota : esta macro repõe a barra de menus toda folha de cálculo para as predefinições. Quando executa esta macro, todas as personalizações efectuadas à barra de menu da folha de cálculo serão perdidas.

Eliminar e restaurar um comando de menu um menu

A seguinte macro elimina o comando o Office na Web no menu Ajuda .
Sub Delete_Menu_Item()
    Set x = CommandBars("Worksheet Menu Bar").Controls("Help")
    x.Controls("Office on the Web").Delete
End Sub
				
a seguinte macro restaura o Office na Web um comando no menu Ajuda .
Sub Restore_Menu_Item()
    Set x = CommandBars("Worksheet Menu Bar").Controls("Help")
    x.Controls.Add Type:=msoControlButton, Id:=3775, before:=2
End Sub
				

Eliminar e restaurar um submenu num menu

A seguinte macro elimina o submenu folha no menu Formatar .
   Sub Delete_Submenu()
       Set x = CommandBars("Worksheet Menu Bar").Controls("Format")
       x.Controls("Sheet").Delete
   End Sub
				
a seguinte macro restaura o submenu folha no menu Formatar .
Sub Restore_Submenu()
    Set x = CommandBars("Worksheet Menu Bar").Controls("Format")
    x.Controls.Add Type:=msoControlPopup, ID:=30026, before:=4
    x.Reset
End Sub
				

Eliminar e restaurar um comando de menu um submenu

A seguinte macro elimina o comando de menu Proteger folha no submenu ' protecção ' (no menu Ferramentas ).
Sub Delete_Item_on_Submenu()
    Set x = CommandBars("Tools").Controls("Protection")
    x.Controls("Protect Sheet...").Delete
End Sub
				
a seguinte macro restaura o comando de menu Proteger folha no submenu ' protecção ' (no menu Ferramentas ).
Sub Restore_Item_on_Submenu()
    Set x = CommandBars("Tools").Controls("Protection")
    x.Controls.Add Type:=msoControlButton, ID:=893, before:=1
End Sub
				

Eliminar e restaurar um menu de uma barra de ferramentas

A seguinte macro elimina o menu Desenhar a barra de ferramentas desenho .
Sub Delete_Menu_on_Toolbar()
    CommandBars("Drawing").Controls("Draw").Delete
End Sub
				
a seguinte macro restaura o desenho do menu na barra de ferramentas desenho .
Sub Restore_Menu_on_Toolbar()
    Set x = CommandBars("Drawing")
    x.Controls.Add Type:=msoControlPopup, Id:=30013, before:=1
    x.Reset
End Sub
				

Eliminar e restaurar um item de menu no menu de atalho

A seguinte macro elimina o comando de menu de Inserir comentário no menu de atalho de célula de folha de cálculo.
Sub Delete_Shortcut_menu_item()
    CommandBars("Cell").Controls("Insert Comment").Delete
End Sub
				
a seguinte macro restaura o comando de menu Inserir comentário no menu de atalho célula de folha de cálculo e restaura a linha de separador que eliminar a macro anterior.
Sub Restore_Shortcut_menu_item()
    Set x = CommandBars("Cell")
    x.Controls.Add Type:=msoControlButton, Id:=2031, before:=8
    Application.ShortcutMenus(xlWorksheetCell).MenuItems.Add _
        Caption:="-", before:=9
End Sub
				

Referências

Para mais informações sobre como personalizar programaticamente comandos barras, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , escreva Descrição geral de barras de comandos no Assistente do Office ou no Assistente de respostas e, em seguida, clique em Procurar para visualizar o tópico.

Propriedades

Artigo: 213550 - Última revisão: 11 de outubro de 2006 - Revisão: 5.1
A informação contida neste artigo aplica-se a:
  • Microsoft Excel 2000 Standard Edition
Palavras-chave: 
kbmt kbdtacode kbhowto kbprogramming KB213550 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: 213550

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