Событие Application.WindowBeforeRightClick (PowerPoint)

Статья
04/07/2023

Происходит при щелчке правой кнопкой мыши фигуры, слайда, страницы заметок или текста. Это событие активируется событием MouseUp .

Синтаксис

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

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

Параметры

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

Пример

В этом примере создается дубликат выбранной фигуры. Если фигура имеет текстовый фрейм, она добавляет текст "Дубликат фигуры" в новую фигуру. Если для аргумента Отмена задано значение True , то контекстное меню по умолчанию не отображается.

Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, 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

См. также

Объект Application

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

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

Поделиться через