Raccourcis clavier dans le menu Excel CommandBar

Le code ci-dessous ajoute un élément de menu Personnalisé 1 juste avant Nouveau .... Comment puis-je obtenir le raccourci clavier assigné à CodeCustom1 (via Application.OnKey) pour apparaître bien aligné à droite avec Ctrl + N?Raccourcis clavier dans le menu Excel CommandBar

Sub menuItem_Create() 
    With CommandBars("Worksheet menu bar").Controls("File") 
     .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Custom1" 
     .Controls("Custom1").OnAction = "CodeCustom1" 
    End With 
End Sub

enter image description here

Source

2013-01-15 Frank Seifert

Utilisez ShortcutText propriété du CommandBarButton:

.Controls("Custom1").ShortcutText = "ctrl+W"

Source

2013-01-15 18:22:48

Impressionnant. Je devrais lire plus (ou mieux) la documentation. –

C'est difficile parce que CommandbarButton est un sous-ensemble de CommandbarControl et a quelques propriétés supplémentaires. En cas de doute, déclarez-le comme un bouton, et vous serez en mesure de mieux voir ce qui est disponible. –

Raccourcis clavier dans le menu Excel CommandBar

Répondre

Questions connexes