Com base na minha experiência com o Excel 2013, acredito que essa funcionalidade não seja acessível por meio do VBA. No entanto, você pode obtê-lo por meio desta macro AutoHotKey que eu vinculo a Ctrl + Shift + C como parte do exemplo:
;--------------------------------- header with some global settings
SendMode Input
SetTitleMatchMode, RegEx
;--------------------------------- Hotkeys/Excel only
#IfWinActive - Excel$ ; only in windows contatining "- Excel" in title
^+c::Send !od{Down 2}{Enter}+{Tab 3}
#IfWinActive
Ele basicamente envia séries de pressionamentos de tecla para obter o efeito esperado. Se algo não funcionar para você (por exemplo, se você tiver uma versão diferente do inglês do Excel, então Alt + O , D não é Abrindo a janela Formatação Condicional , repita a seqüência de teclas acima manualmente e você poderá facilmente encontrar o que precisa ser corrigido. Se você não estiver familiarizado com o AHK, a seqência é: Alt + O , D , ↓ , ↓ , Introduz , 3 × (< kbd> Shift + Separador )
O AutoHotKey é seu amigo em muitas situações em que os autores de aplicativos não implementaram algo.
Editar:
-
Alterei o atalho de teclado para um sem uso.
-
Eu perdi a funcionalidade também, então obrigado por me motivar a resolver isso. Além disso, é mais conveniente ter o diálogo em um único atalho de teclado, em vez do que é o seqüencial padrão.