Excel-Zellen-Kontextmenü - Makro

Question

Ich habe ein Makro zum Excel-Zellen-Kontextmenü hinzugefügt.

Dies ist der Hauptcode,

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 

Hier können Sie sehen das Ergebnis,

Ih es trotzdem auf dem oberen Rand des Menüs dieses Makro zu setzen?

Answer 1

Versuchen:.

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