@Toller

ЗАДАЧА: Пользователь выделяет область (в частности, столбец), щелкает правой клавишей по выделенной области и на ряду со стандартными элементами выпадающего меню, появляется один (или более) моих элементов.
Как это сделать?

0

@SlavaRus

Так для идеи:

Const CaptionName = 'Опс'

Private Sub Workbook_Activate()
Dim CmdCtrl As CommandBarControl
For Each CmdCtrl In Application.CommandBars('cell').Controls
If CmdCtrl.Caption = CaptionName Then CmdCtrl.Delete
Next
Set CmdCtrl = Application.CommandBars('Cell').Controls.Add(Type:=msoControlButton)
CmdCtrl.Caption = CaptionName
CmdCtrl.OnAction = 'Твоя_процедура'
End Sub

Private Sub Workbook_Deactivate()
Application.CommandBars('cell').Controls(CaptionName).Delete
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then
Application.CommandBars('cell').Controls(CaptionName).Visible = True
Else
Application.CommandBars('cell').Controls(CaptionName).Visible = False
End If
End Sub

0