我正在更新一些旧的 VBA 代码以使用 Access 2010。我们遇到的一个问题是右键单击时没有出现快捷菜单,因此我们创建了一个快捷菜单并将其绑定到 Application 对象,如下所示...
Application.ShortcutMenuBar = "GeneralClipboardMenu"
一般来说,如果您右键单击“详细信息”窗格中的列“我们将其用作 excel 网格”,则不会出现菜单。这方面对我们的应用程序的使用至关重要,因此我们不能忽略它。
代码中的任何地方都没有禁用快捷菜单。此外,我意识到快捷菜单正在被 2010 Office 套装中的功能区所取代,但右键单击是我们理想情况下希望保留的基本功能。
任何帮助将不胜感激。这是创建快捷菜单的代码,以防万一。
Sub CreateSimpleShortcutMenu()
On Error Resume Next 'If menu with same name exists delete
CommandBars("GeneralClipboardMenu").Delete
Dim cmb As CommandBar
Set cmb = CommandBars.Add("GeneralClipboardMenu", msoBarPopup, False, False)
With cmb
.Controls.Add msoControlButton, 21, , , True ' Cut
.Controls.Add msoControlButton, 19, , , True ' Copy
.Controls.Add msoControlButton, 22, , , True ' Paste
.Controls.Add msoControlButton, 4016, , , True 'Sort Ascending
.Controls.Add msoControlButton, 4017, , , True 'Sort Decending
End With
Set cmb = Nothing
End Sub