在单元格内自定义右键单击
我有一个自定义右键单击菜单使用以下语法添加到上下文菜单的东西:
Function RightClickOnMoMAction(targ As String) Dim cbar As CommandBar Set cbar = Application.CommandBars("Cell") With cbar.Controls.add(Temporary:=True, Type:=msoControlButton, before:=1) .BeginGroup = False .FaceId = 1111 .Caption = targ .OnAction = "'" & ThisWorkbook.Name & "'!'rcFollowSlide """ & targ & """" & "'" End With End Function
当我右键单击单元格时,它工作得很好。 但是,当我在单元格中“input”时,例如,如果我正在单元格内写入内容,则右键单击将具有不同的上下文菜单。 在单元格内部时,如何捕获右键单击? 如果这是可能的。 我希望在这两种情况下都可以访问我的自定义菜单。
作为参考,这里是我的上下文菜单:
在编辑单元格内部的时候,右键点击(光标消失了,但是我在屏幕截图上画了蓝色,正在写单元格):
这是通过Formula Bar
命令Formula Bar
访问的。
看下面的代码,让我们知道它是否可以解决问题。
Dim cbar As CommandBar Set cbar = Application.CommandBars("Formula Bar") With cbar.Controls.Add(Temporary:=True, Type:=msoControlButton, Before:=1) .FaceId = 1111 .Caption = "TEST" End With