Добавление пункта в контекстное меню.

[Kveldulv]

Здравствуйте!

Подскажите, пожалуста, как добавить в стандартное контекстное меню Excel свой пункт?

[EducatedFool]

У Excel есть множество разных контекстных меню - для каждого объекта своё меню.
(для ячейки - одно, для автофигуры - другое, и т.д.)

Набираем в Яндексе фразу commandbars("cell")
и находим кучу примеров кода.
(этот код будет добавлять пункты в контекстное меню ячейки. Для других контекстных меню всё делается точно также - изменяется лишь название меню - например, commandbars("ply"))

[Kveldulv]

Спасибо )
Искал не по тем критериям. )

[Denis Ch]

В продолжение темы.Вот код, который добавляет необходимое мне контекстное меню:

Sub Добавление_контекстного_меню()
'   Добавляет элемент меню в контекстное меню ячейки
    Dim Bar As CommandBar
    Dim NewControl As CommandBarButton
    Set Bar = CommandBars("Cell")
    Set NewControl = Bar.Controls.Add _
        (Type:=msoControlButton, ID:=1, _
         temporary:=True)
    With NewControl
        .Caption = "Выбрать тип КП"
        .OnAction = "Тип_коммерческого_предложения"
        .FaceId = 283
    End With
End Sub

Но при переключении в страничный режим данное контекстное меню исчезает.Подскажите пожалуйста как сделать так, чтобы оно не исчезало при переходе в страничный режим?