Comprar a Coleção de 15.000 Macros, Funções e Fórmulas do Excel        Dicas  

Criando Menus via VBA que acionam Rotinas
Questão 19:

Como criar Menus em VBA de tal forma que eu possa acionar minhas duas Rotinas (uma de Importação e outra de Exportação ligadas por macros ao menu)

Solução 19:

Sub IntroduzMenusESubMenus( )
Set MBarraDeMenus = CommandBars.ActiveMenuBar
'===As instruções abaixo introduzem novo Menu na
'===Barra de Menus : "Importação /Exportação"

Set novoMenu = MBarraDeMenus.Controls.Add _
(Type:=msoControlPopup, Temporary:=True)
novoMenu.Caption = "Importação/Exportação"
'===Criando os SubMenus Controle1 e Controle2:
Set Controle1 = novoMenu.CommandBar.Controls.Add _
(Type:=msoControlButton, Id:=1)
Set Controle2 = novoMenu.CommandBar.Controls.Add _
(Type:=msoControlButton, Id:=1)
'===Agora temos o SubMenu "Importação"
Controle1.Caption = "Importação"
Controle1.OnAction = "ExecutaRotina1"
'===Agora temos o SubMenu "Exportação"
Controle2.Caption = "Exportação"
Controle2.OnAction = "ExecutaRotina2"
End Sub

Sub ExecutaRotina1( )
'===Introduza o código
MsgBox "Executando a Rotina de Importação"
End Sub

Sub ExecutaRotina2( )
'===Introduza o código
MsgBox "Executando a Rotina de Exportação"
End Sub