Как привязать своё PopUp меню к листу?

[Vovchic]

Добрый день.

Суть проблемы:
хочется, чтобы по нажатию правой кнопки мыши выскакивала менюшка - модификация стандартной. Но при этом в других открытых книгах выскакивала стандартная менюшка.

Добавление делается так:

Sub AddPopUp()

Set mControls = Application.CommandBars("cell").Controls
With mControls
Set mButton = .Add(Type:=msoControlButton, ID:=850)
With mButton
.Caption = "Пунктик"
.OnAction = "AddStr"
End With

End With

End Sub

Заранее спасибо.

[GSerg]

Рекомендуется заценить обработчик события Worksheet_BeforeRightClick

[Vovchic]

Ну до этого я догадался.

Sub DeletePopUp() ' creates the custom popup menu
Application.CommandBars("cell").Controls.Item("Пунктик").Delete
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
If Not Application.Intersect(Target, Target) Is Nothing Then
AddPopUp
End If
End Sub

Осталось только убрать эти пункты после закрытия менюшки. А вот как сделать событие на закрытие менюшки - я не в курсе...

[Vovchic]

Вопрос отпадает.
Проблема решилась.
Нашел стандартный пример

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
For Each icbc In Application.CommandBars("cell").Controls
If icbc.Tag = "brccm" Then icbc.Delete
Next icbc
If Not Application.Intersect(Target, Range("D1:D10")) _
Is Nothing Then
With Application.CommandBars("cell").Controls _
.Add(Type:=msoControlButton, before:=6, _
temporary:=True)
.Caption = "New Context Menu Item"
.OnAction = "MyMacro"
.Tag = "brccm"
End With
End If
End Sub

Это даже еще лучше:)