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)