Excel单元格上下文菜单 - 宏
问题描述:
我向Excel单元格上下文菜单添加了一个宏。Excel单元格上下文菜单 - 宏
这是主要的代码,
Private Sub Workbook_Open()
Dim NewControl As CommandBarControl
Application.CommandBars("Cell").Reset
Set NewControl = Application.CommandBars("Cell").Controls.Add
With NewControl
.Caption = "Inserir Data"
.OnAction = "Module1.OpenCalendario"
.BeginGroup = True
End With
End Sub
在这里你可以看到结果,
小时反正有没有把这个宏在菜单的顶部?
答
尝试:
Set NewControl = Application.CommandBars("Cell").Controls.Add(before:=1)
没有工作这种方式,但我已经尝试添加(,,, 1),它最后的作品。 感谢您的帮助。 – nioxys