Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

Capítulo 19: Como Acessar suas Macros através da Interface de Usuário 329
Criando uma Barra de Ferramentas
Personalizadas
Se você verificou todos os CommandBars disponíveis, pode ter notado
um chamado Built-in Menus (Menus Integrados). Esse CommandBar
contém todos os comandos do antigo Excel 2003. A Figura 19-9 mostra
parte desse enorme menu pop-up (instantâneo). Todos os antigos
comandos estão lá, mas eles não estão muito bem organizados.
Figura 19-9:
Exibindo o
menu de
atalho
Built-in
Menus.
Neste exemplo, apresento um procedimento VBA que (de certa forma) cria a
barra de menu do antigo Excel 2003. Ele cria um novo CommandBar e depois,
copia os controles Built-in Menus do CommandBar.
Sub MakeOldMenus()
Dim cb As CommandBar
Dim cbc As CommandBarControl
‘ Delete, se existir
On Error Resume Next
Application.CommandBars(“Old Menus”).Delete
On Error GoTo 0
‘ crie uma barra de ferramentas em estilo antigo
‘ Configure a última declaração para Falsa para um menu
mais compacto
Set OldMenu = Application.CommandBars.Add
_(“Old Menus”, , True)
‘ Copie os controles dos menus do Excel”
shortcut menu
With CommandBars(“Built-in Menus”)