Событие Application. Виндовбефореригхткликк (PowerPoint)Application.WindowBeforeRightClick event (PowerPoint)

Возникает при щелчке правой кнопкой мыши фигуры, слайда, страницы заметок или некоторого текста.Occurs when you right-click a shape, a slide, a notes page, or some text. Это событие инициируется событием MouseUp .This event is triggered by the MouseUp event.

СинтаксисSyntax

выражение.expression. WindowBeforeRightClick( _Sel_, _Cancel_ )

выражение: переменная, представляющая объект Application.expression A variable that represents an Application object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
РегистрацииSel ОбязательныйRequired SelectionSelection Выделенный фрагмент под указателем мыши при щелчке правой кнопкой мыши.The selection below the mouse pointer when the right-click occurred.
ОтменаCancel ОбязательныйRequired ЛогическийBoolean False при возникновении события.False when the event occurs. Если процедура события устанавливает для этого аргумента значение true, контекстное меню по умолчанию не отображается после завершения процедуры.If the event procedure sets this argument to True, the default context menu does not appear when the procedure is finished.

ПримерExample

В этом примере создается дубликат выбранной фигуры.This example creates a duplicate of the selected shape. Если у фигуры есть текстовая рамка, она добавляет текст "повторяющаяся фигура" к новой фигуре.If the shape has a text frame, it adds the text "Duplicate Shape" to the new shape. Если приСвоить аргументу Cancel значение true , контекстное меню по умолчанию не будет отображаться.Setting the Cancel argument to True then prevents the default context menu from appearing.

Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, ByVal Cancel As Boolean)

    With ActivePresentation.Selection.ShapeRange

        If .HasTextFrame Then

            .Duplicate.TextFrame.TextRange.Text = "Duplicate Shape"

        Else

            .Duplicate

        End If

        Cancel = True

    End With

End Sub

См. такжеSee also

Объект ApplicationApplication Object

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.