Excel单元格上下文菜单 - 宏

Question

我向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 

在这里你可以看到结果，

小时反正有没有把这个宏在菜单的顶部？

Answer 1

尝试：

Set NewControl = Application.CommandBars("Cell").Controls.Add(before:=1)