Evento Application.WindowBeforeRightClick (PowerPoint)

Artigo
04/07/2023

Ocorre quando o mouse em uma forma, um slide, uma página de anotações ou parte do texto. Este evento é disparado pelo evento MouseUp.

Sintaxe

expressão. WindowBeforeRightClick( _Sel_, _Cancel_ )

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Sel	Obrigatório	Selection	A seleção sob o ponteiro do mouse quando ocorre a ação de clicar com o botão direito do mouse.
Cancel	Obrigatório	Boolean	False quando o evento ocorre. Se o procedimento de evento define este argumento como True, o menu de contexto padrão não aparecem quando o procedimento for concluído.

Exemplo

Este exemplo cria uma duplicata da forma selecionada. Se a forma tiver um quadro de texto, ele adiciona o texto "Duplicate Shape" à nova forma. Em seguida, a definição do argumento Cancel como True impede que o menu de contexto padrão que aparecem.

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

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Share via