контекстное меню в Excel

[vl777]

Подскажите пожалуйста, как изменить один пункт в стандартном контекстном меню в Excel-е, которое вызывается при наведении курсора на ярлычок листа? Нужно изменить цвет ярлычка и дополнительно сделать изменения в другой "книге".
Установлен ExcelXP. Всем спасибо.

[Евген]

Application.CommandBars("ply").Controls.Add()

[vl777]

Ёжик, может ты не будешь таким гордым, а поподробнее растолкуешь что изобразил.

[Евген]

Подскажите пожалуйста, как изменить один пункт в стандартном контекстном меню в Excel-е, которое вызывается при наведении курсора на ярлычок листа?

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

Application.CommandBars("ply").Controls.Add()


- оно самое и есть (в 2000), добавить пункт

[Vitaly1]

Сюда о меню:
http://www.vbstreets.ru/VBA/Articles/65843.aspx

[Vitaly1]

А так ты можешь просмотреть все названия контекстного меню через кэпшен приложения:

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

Sub menu()
For i = 1 To Application.CommandBars.Count
If Application.CommandBars(i).Type = msoBarTypePopup Then
  Application.Caption = Application.CommandBars(i).Name
  Application.CommandBars(i).ShowPopup
  End If
Next i

End Sub

После запуска макроса нажимай ESC для продолжения просмотра, или щелкни мышкой мимо меню, для быстрого завершения