Меню правой кнопки мышки в Экселе.

[Zigi]

Есть ли возможность отредактировать менюшку (добавить новые позиции и поменять местами), вызываемую правым кликом мышки на ячейках в Экселе?

[Дмит]

Код: Выделить всё

Sub Sozdanie()
Dim i As Long, bt As CommandBarControl
    i = 1
    For Each bt In Application.CommandBars("Cell").Controls
        bt.Visible = False
    Next
    Set bt = Application.CommandBars("Cell").Controls.Add
    With bt
    .Caption = "Сбросить настойки меню"
    .OnAction = "Rezet"
    End With
End Sub
Sub Rezet()
Application.CommandBars("Cell").Reset
End Sub

Вообще список имён Popup меню можно получить:

Код: Выделить всё

Dim cm As CommandBar, i As Long
    For Each cm In Application.CommandBars
        If cm.Position = msoBarPopup Then
            i = i + 1
            Cells(i, 1) = cm.Name
        End If
    Next