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 回答