Excelのセルコンテキストメニュー - マクロ

Question

Excelのセルコンテキストメニューにマクロを追加しました。

これは、メニューの一番上にこのマクロを置くためにとにかく、あなたは結果を見ることができ、

Ihと

ここ

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)