Quando você terminar de escrever uma macro do Excel , muitas vezes você quer uma maneira fácil para iniciá-lo . Muitos usuários escolher um atalho de teclado tradicional , enquanto outros selecionar outro método , como um botão de comando que executa a macro quando clicado. Se você escreveu um macro verdadeiramente excepcional , no entanto, você pode querer colocá-lo diretamente no menu do Excel . No Excel 2003 , use o Visual Basic for Applications (VBA) para criar um novo item de menu. Acrescentar o número de opções que você desejar. Quebre as opções em grupos com linhas de seção , e você terá um menu personalizado profissional. Instruções
1

Inicie o Excel 2003.
2

Abra o Editor do Visual Basic. Selecione "Ferramentas ", depois " Macro ", depois " Editor de Visual Basic " no menu .
3

Insira um módulo em branco para o seu código. Selecione "Inserir ", depois " Module" no menu.
4

Comece um novo OnFilterComboChange . Digite o seguinte: .

Sub CustomMenu ()

Excel adiciona automaticamente uma declaração de "End Sub"
5

Definir variáveis. Digite o seguinte entre o "Sub" e "End Sub " declarações :

Dim MenuObject Como CommandBarPopup

Dim MenuItem As Object
6

Excluir todas as instâncias existentes de o menu personalizado . Isso evita que as duplicatas se você executar o código mais de uma vez . Digite o seguinte: . .

On Error Resume Next

Application.CommandBars (1) Controles ( " & My Macro" ) Apagar

On Error GoTo 0 < br >
7

opção Criar um novo menu chamado " My Macro ". Use um valor de parâmetro de 10 na demonstração "Set" para colocá-lo antes de "Help ", o 10 º item do menu Excel. Digite o seguinte: .

Set MenuObject = Application.CommandBars (1) Controls.Add (Type: = msoControlPopup , Antes: = 10, temporário : = True )

MenuObject.Caption = " & My Macro "
8

Adicionar dois itens de menu, com uma linha de corte entre eles. Crie a linha de corte , definindo a propriedade " BeginGroup " no segundo item como "True ".

Set MenuItem = MenuObject.Controls.Add (Type: = msoControlButton )

MenuItem.OnAction = " MacroName "

MenuItem.Caption = " & Run "

Set MenuItem = MenuObject.Controls.Add (Type: = msoControlButton )

MenuItem.OnAction = " Sobre "

MenuItem.Caption =" & About Macro "

MenuItem.BeginGroup = True
9

Execute o código. Selecione "Executar", depois em "Executar Sub /UserForm " a partir do menu. Quando você voltar para a planilha, você vai ver "My Macro" no menu, antes de "Help ". Clique para ver as duas opções de menu , separados por uma linha de corte .