Здравствуйте, вот такой вопрос:

хочу чтоб появлялось моё меню
когда кликаешь правой кнопкой на pivottable

Ловлю событие

MouseUp(....... e As Args)
If e.button=2 Then 'если правой кнопкой
покажи моё меню
EndIf

Показываются сразу два и моё и от Microsoft

Как Microsoft'овское отключить?
Кто нибудь с этой задачей сталкивался?

Заранее спасибо
Мастрояни

Нет - дело не в этом.
Вот только что наткнулся:

Нужно изменить BeforeContexMenu Event типа вот этого:

Private Sub MyPivotTable_BeforeContextMenu(ByVal sender As Object, ByVal e As AxMicrosoft.Office.Interop.Owc11.IPivotControlEvents_BeforeContextMenuEvent) Handles MyPivotTable.BeforeContextMenu
Dim oAction1 As Object() = New Object() {"&Blue", "FormatAsBlue"}
Dim oAction2 As Object() = New Object() {"&Red", "FormatAsRed"}
Dim oAction3 As Object() = New Object() {"&Green", "FormatAsGreen"}
Dim oSubMenu1 As Object() = New Object() {oAction1, oAction2, oAction3}
Dim oMenu1 As Object() = New Object() {"&Format As...", oSubMenu1}
Dim oMenu2 As Object() = New Object() {"&Enter Date", "EnterDate"}
Dim oMenu As Object() = New Object() {oMenu1, oMenu2}
e.menu.Value = oMenu
End Sub


Вот так потом словить свои комманды:
Private Sub MyPivotTable_CommandExecute(ByVal sender As Object, ByVal e As AxMicrosoft.Office.Interop.Owc11.IPivotControlEvents_CommandExecuteEvent) Handles MyPivotTable.CommandExecute
If e.command.ToString().Equals("EnterDate") Then
......
EndIf
End Sub

Ухххх, зарработало! Пойду ка теперь покурю