以下のコードは、 New...の直前にメニュー項目Custom1を追加します。(経由で) CodeCustom1に割り当てられたキーボード ショートカットを取得して、 Ctrl+Nで適切に右揃えに表示するにはどうすればよいですか?Application.OnKey
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