Macros de exemplo para devolver o ID de um controlo de CommandBar

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

Nesta página

Sumário

A propriedade ID para o objecto de CommandBar utiliza um número exclusivo para cada barra de menus incorporada, barra de menus de atalho, submenu, item de menu ou barra de ferramentas. O ID, muitas vezes, é necessário quando faz referência a um controlo de uma barra de comandos. O Visual Basic for Applications exemplos de macros neste artigo devolve o ID para vários controlos da barra de comandos.

Mais Informação

Para obter informações adicionais, clique no número de artigo que se segue para visualizar o artigo na Microsoft Knowledge Base:
159466XL97: Lista de números de ID para controlos da barra de comando incorporado

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.

Menu na barra de menus

O exemplo de macro seguinte devolve o ID para o menu Ferramentas do incorporado - na barra de menu do gráfico:
   Sub File_Id

      Dim x as Object
      set x = CommandBars("Chart Menu Bar").Controls("Tools")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				

Comando de menu num menu

O exemplo de macro seguinte devolve ID para o comando Sair no menu ficheiro da barra de menu de folha de cálculo incorporada:
   Sub FileExit_Id()

      Dim x as Object
      set x = CommandBars("Worksheet Menu Bar").Controls("File") _
      .Controls("Exit")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				

Comando num SubMenu do menu de atalho

O exemplo de macro seguinte devolve o ID para o comando do item calculado no submenu fórmulas da tabela dinâmica barra de menus de atalho:
   Sub SubMenu_Command_Id()

      Dim x as Object
      set x = CommandBars("PivotTable Context Menu").Controls("Formulas") _
      .Controls("Calculated Item...")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				
o seguinte exemplo de macro devolve o ID de todos os itens no submenu ' fórmulas ' da barra de menu de atalho de tabela dinâmica:
   Sub GetAll_Submenu_Ids()

      Dim ctrl as Object
      For Each ctrl in CommandBars("PivotTable Context Menu") _
      .Controls("Formulas").Controls
         MsgBox ctrl.Caption & Chr(13) & ctrl.Id
      Next ctrl

   End Sub
				

Referências

Para mais informações sobre como personalizar programaticamente comandos barras, no Editor do Visual Basic, clique no Assistente do Office , escreva Personalizar menus , clique em Procurar e, em seguida, clique aqui para visualizar "Descrição geral de barras de comandos".

Nota Se o assistente estiver oculta, clique na Office Assistant botão na barra de ferramentas padrão. Se a ajuda do Microsoft Visual Basic não estiver instalado no computador, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
120802Office: Como adicionar/remover um único programa do Office ou o componente

Propriedades

Artigo: 162814 - Última revisão: 19 de janeiro de 2007 - Revisão: 4.2
A informação contida neste artigo aplica-se a:
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
Palavras-chave: 
kbmt kbhowto kbprogramming KB162814 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: 162814

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