Exemplos de macros para retornar o código para um controle de CommandBar

Traduções deste artigo Traduções deste artigo
ID do artigo: 162814 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

A propriedade ID para o objeto CommandBar utiliza um número exclusivo para cada barra de menus interna, barra de menu de atalho, submenu, item de menu ou barra de ferramentas. A identificação de muitas vezes é necessária ao fazer referência a um controle em uma barra de comando. O Visual Basic for Applications macro exemplos neste artigo retorna a identificação para vários controles de barra de comandos.

Mais Informações

Para obter informações adicionais, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
159466XL97: Lista de números de identificação para controles de barra de comando interno

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.

Menu na barra de menus

O exemplo de macro a seguir retorna a identificação para o menu Ferramentas do interna - na barra de menu 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 em um menu

O exemplo de macro a seguir retorna a identificação para o comando Sair no menu arquivo da barra de menus planilha interno:
   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 em um SubMenu de um menu de atalho

O exemplo de macro a seguir retorna a identificação para o comando de item calculado no submenu fórmulas da tabela dinâmica barra de menu 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 retorna a identificação de todos os itens no submenu fórmulas na 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 obter mais informações sobre como personalizar programaticamente barras, no Editor do Visual Basic, clique em do Assistente do Office , digite Personalizando menus , comando clique em Pesquisar e, em seguida, clique para exibir "Visão geral de barras de comando".

Observação Se o Assistente estiver oculta, clique no Office Assistente botão na barra de ferramentas padrão. Se Ajuda do Microsoft Visual Basic não estiver instalado no seu computador, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:
120802Office: Como adicionar ou remover um único programa do Office ou componente

Propriedades

ID do artigo: 162814 - Última revisão: sexta-feira, 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 traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes 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