Не подсакжет ли ALL, как можно создать и отобразить контекснтное меню, которое бы появлялось при нажатии правой кнопки мыши на пользовательской форме. В принципе как поймать событие о нажатии правой кнопки я знаю, но вот как сделать всплывающее меню .
Все надо сделать в VBA для Excel.

Здравствуйте, Sasha_nov, Вы писали:

S_>Не подсакжет ли ALL, как можно создать и отобразить контекснтное меню, которое бы появлялось при нажатии правой кнопки мыши на пользовательской форме. В принципе как поймать событие о нажатии правой кнопки я знаю, но вот как сделать всплывающее меню .
S_>Все надо сделать в VBA для Excel.

В модуле формы:

Private Sub UserForm_Initialize()
    On Error Resume Next
    CommandBars("MyPopupMenu").Delete
    On Error GoTo 0

    Dim cb As CommandBar
    Set cb = CommandBars.Add(Name:="MyPopupMenu", Position:=msoBarPopup, Temporary:=True)

    With cb.Controls.Add(Type:=msoControlButton, Temporary:=True)
        .Caption = "MyMacro1"
        .OnAction = "MyMacro1"
    End With
End Sub

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        On Error Resume Next
        CommandBars("MyPopupMenu").ShowPopup
        On Error GoTo 0
    End If
End Sub

Private Sub UserForm_Terminate()
    On Error Resume Next
    CommandBars("MyPopupMenu").Delete
    On Error GoTo 0
End Sub