5

以下のコードは、 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

ここに画像の説明を入力

4

1 に答える 1

4

CommandbarButtonのShortcutTextプロパティを使用します。

.Controls("Custom1").ShortcutText = "ctrl+W"
于 2013-01-15T18:22:48.863 に答える