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 327
.OnAction = “ChangeCase”
.Style = msoButtonIconAndCaption
End With
End Sub
LEMBRE-SE
Quando você modifica um menu de atalho, essa modificação tem efeito
até você reiniciar o Excel. Em outras palavras, menus de atalho modificados
não se reconfiguram quando você fecha a pasta de trabalho que
contém o código VBA. Portanto, se escrever código para modificar um
menu de atalho, quase sempre você escreve código para inverter o
efeito de sua modificação.
O procedimento DeleteFromShortcut remove o novo item de menu.
Sub DeleteFromShortcut()
On Error Resume Next
Application.CommandBars(“Cell”).Controls _
(“&Change Case”).Delete
End Sub
A Figura 19-8 mostra o novo item do menu exibido depois de clicar uma
célula com o botão direito.
Figura 19-8: O
menu de
atalho Cell
(Célula)
exibindo um
item do menu
personalizado.
O primeiro comando depois da declaração de um par de variáveis
chama o procedimento DeleteFromShortcut. Essa declaração garante
que apenas um item Change case aparece no menu de atalho. Tente
comentar essa linha (ponha um apóstrofo no início da linha) e rode o
procedimento algumas vezes — agora, não se entusiasme! Clique uma
célula com o botão direito e poderá ver múltiplas cópias do item de