Вот пример как добавить кнопку в контекстное меню. Данный код работает в книге с поддержкой макросов:
Добавление кнопки (код размещается в модуле книги):
Код |
---|
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("cell").Reset
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("cell").Reset
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
CreateItemsInCellContextMenu
End Sub
|
Вызываемая процедура (код размещается в стандартном модуле):
Код |
---|
Sub CreateItemsInCellContextMenu()
On Error Resume Next
Application.CommandBars("cell").Reset
Application.CommandBars("cell").Controls(1).BeginGroup = True
With Application.CommandBars("cell").Controls.Add(1, , , 1)
.OnAction = "Test"
.Caption = "Тест2"
End With
End Sub
Sub Test()
MsgBox "Работает"
End Sub |
Как добавить пункт в контекстное меню, размещая код в пользовательской надстройке?
Вышеуказанный код не работает.