Событие Worksheet.BeforeRightClick (Excel)

Происходит при щелчке листа правой кнопкой мыши перед действием по умолчанию.

Синтаксис

expression. BeforeRightClick (Target , Cancel)

выражение Переменная, представляющая объект Worksheet .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Target (Целевое значение)	Обязательный	Range	Ячейка, ближайшая к указателю мыши при щелчке правой кнопкой мыши.
Отмена	Обязательный	Boolean	Значение false при возникновении события. Если процедура события задает для этого аргумента значение True, действие по умолчанию при щелчке правой кнопкой мыши не выполняется после завершения процедуры.

Замечания

Как и другие события листа, это событие не возникает, если щелкнуть правой кнопкой мыши, когда указатель находится на фигуре или на панели команд (панель инструментов или строка меню).

Пример

В этом примере в контекстное меню для ячеек B1:B10 добавляется новый пункт меню.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ 
 Cancel As Boolean) 
 Dim icbc As Object 
 For Each icbc In Application.CommandBars("cell").Controls 
 If icbc.Tag = "brccm" Then icbc.Delete 
 Next icbc 
 If Not Application.Intersect(Target, Range("b1:b10")) _ 
 Is Nothing Then 
 With Application.CommandBars("cell").Controls _ 
 .Add(Type:=msoControlButton, before:=6, _ 
 temporary:=True) 
 .Caption = "New Context Menu Item" 
 .OnAction = "MyMacro" 
 .Tag = "brccm" 
 End With 
 End If 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.